Re : Extraction de données sous VBA
Message à Skoobi
Private Sub CommandButton1_Click()
With Range("C2:C" & [C65536].End(xlUp).Row)
Set Trouve = .Find("X", LookIn:=xlValues, lookat:=xlWhole)
If Not Trouve Is Nothing Then
firstAddress = Trouve.Address
Do
Range("A" & Trouve.Row & ":C" & Trouve.Row).Copy Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0)
Trouve.Value = "P"
Set Trouve = .FindNext(Trouve)
Loop While Not Trouve Is Nothing
End If
End With
Sheets("Feuil2").Activate
End Sub
Merci pour cette demo du 'find'
Je ne souhaite pas blesser les autres intervenants à qui je dis merci encore....
petite question.... avec ce petit problème :
Avez-vous une formule tout aussi miracle pour passer de feuil1 à feuil2
et de feuil2 à feuil1
Feuil1
clé test1 resultat1 test2 resultat2 test3 resultat3
125 couleur marron aspect lisse
126 couleur clanc film gras
127 aspect rugueux couleur blanc liquide oui
Feuil2
clé test resultat
125 couleur marron
125 aspect lisse
126 couleur clanc
126 film gras
127 aspect rugueux
127 couleur blanc
127 liquide oui
Cordialement et ùerci de vos réponses