Bonjour a tous ,
Etant nouveau sur ce forum et nouveau dans le dommaine de VBA ( mes debuts de programmation je sollicite votre aide
J'ai une fichier excel auquel je souhaiterai copier une colonne de la feuill2 a partir d'un titre selectionner d'une userform sur la feuill3 le code que j'utilise est le siuvant :
le code que j'ai essayer d'adapter est le suivant mais sans succès
Sub cinq()
Dim celle As Range
For Each celle In Range("A1:F20") '& Range("e65536").End(xlUp).Row)
If celle.Value = "E" And celle.Value <> "" Then
celle.EntireColumn.Copy Worksheets("Recup").Columns("C:C")
celle.Select
End If
Next
End Sub
Est ce que quelqun aurait'il plus simple ?
Merci de votre aide
Ci joint le fichier excel avec les explications sur la feuille 3 et l'userform
Etant nouveau sur ce forum et nouveau dans le dommaine de VBA ( mes debuts de programmation je sollicite votre aide
J'ai une fichier excel auquel je souhaiterai copier une colonne de la feuill2 a partir d'un titre selectionner d'une userform sur la feuill3 le code que j'utilise est le siuvant :
le code que j'ai essayer d'adapter est le suivant mais sans succès
Sub cinq()
Dim celle As Range
For Each celle In Range("A1:F20") '& Range("e65536").End(xlUp).Row)
If celle.Value = "E" And celle.Value <> "" Then
celle.EntireColumn.Copy Worksheets("Recup").Columns("C:C")
celle.Select
End If
Next
End Sub
Est ce que quelqun aurait'il plus simple ?
Merci de votre aide
Ci joint le fichier excel avec les explications sur la feuille 3 et l'userform
Pièces jointes
Dernière édition: