bonjour a tous!!!
 
EDIT:
j'ai un petit soucis sous vba tout bête que je ne trouve pas:
 
J'ai par exemple:
cells(1,1).value= Jean
cells(2,5).value= George
 
je veux par exemple que ma cellule cells(3,1) = Nom "Jean"-Prenom "George"
 
Comment l'ecrire sous vba?
merci
 
 
 
 
 
 
 
 
je bute actuellment sur un probleme pour l'ecriture du code vba:
j'ai souhaite rechercher dans une colonne une valeur pour pouvoir recuperer la position de la cellule pour y ensuite inserer une ligne.
 
Si quelqu'un peut m'aider, ça serait sympa  

bonsoir,
Quelque chose comme ça ?

A+

modifs cosmétiques au post de galopin01
 
sous forme de fonction personnalisée
A placer dans un Module puis dans Excel Insertion Fonctions Personnalisées pour utilisation classique ou alors par appel dans code VBA
 
Public Function Rch(ByVal MaValeur As String) As String
Dim c As Range
Dim iR As Long, iC As Long
    With Worksheets(1).Range("a1:a65536" )
        Set c = .Find(MaValeur, LookIn:=xlValues)
        If Not c Is Nothing Then
            iR = c.Row
            iC = c.Column
        End If
    End With
    If Not c Is Nothing Then
        ' Rch = iR & " , " & iC & " , " & c.Address
        Rch =  c.Address
    Else
        Rch "Nothing"
    End If
End Function
 
cela se trouve une fois de plus dans l'aide en ligne
pratiquement tel quel
Elle ne trouvera que la 1ere occurence recherchée

Oeuf corse !

Sub Cherche()
 
  Dim Plage   As Range
  Dim Cellule As Range
  Dim Posit   As Long
   
  On Error Resume Next
  Set Plage = Sheets("Feuil1" ).Range("a1:a500" )
  For Each Cellule In Plage
    If Cellule.Value <> "" Then
      Posit = Application.WorksheetFunction.Find("*", Cellule.Value)
      End If
      If Posit > 0 Then
        Cellule.Activate
        Selection.EntireRow.Insert
        Exit Sub
      End If
  Next
 
 
A travers tout vos codes, j'ai pu obtenir cela.
merci

Mon aide en ligne n'est pas installé, j'ai égarer mon cd office ce qui est embetant. Faut que je le retrouve au plus vite pour eviter de vous embêter avec des questions aussi evidente lol
En tout cas je tiens a vous remercier kiki29 et galopin01 d'être aussi reactif au forum, on en a bien besoin  
Alors rester dans les parages lol  
a+

Ta essayer qq chose du style :  
 
Tant que Table!champ <> condition
  |  Variable = cout(champ)     ' qui sera la ligne ..  
 Fin Tant que
 
apres ta la ligne a laquelle ca c arrété
et tu insere une nouvelle ligne a l'aide de ALTER COLUMN ...  
je pense que ca doit etre faisable ..

 
 
Ok merci de ta proposition    

Voir mon edit svp

bien ton code