Bonjour,
Dans la ligne 5 de mon fichier Excel j'aimerais identifier toutes les cellules qui finissent par un 1 et les recopier plus bas. Par exemple O11 O21....
j'ai pensé a un code a peu pré comme celui ci, s'il peut être corrigé ce serait cool
merci beaucoup!!
Dans la ligne 5 de mon fichier Excel j'aimerais identifier toutes les cellules qui finissent par un 1 et les recopier plus bas. Par exemple O11 O21....
j'ai pensé a un code a peu pré comme celui ci, s'il peut être corrigé ce serait cool
Code:
Sub test()
Dim Plage As Range
Dim Cel As Range
Dim Adr As String
With Worksheets("Feuil1")
'en colonne C à partir de C5
Set Plage = .Range(.Cells(5, 3), .Cells(5, .Columns.Count).End(xlToRight))
End With
'Recherche les valeurs qui ont un 1 à la fin sur la ligne 5 (a partir de la cellule C5)
Set Cel = Plage.Find(
Right(« chercher sur la plage « set Plage », 1) = 1
'si trouvé, mémorise l'adresse et boucle en inscrivant
'les valeurs inscrites dans la plage nommée qui correspondent
If Not Cel Is Nothing Then
Adr = Cel.Address
Do
Copier la valeur trouvée dans la cellule C13 D13 …. (plus il y en a plus on copiera les valeurs sur la ligne)
End Submerci beaucoup!!
Dernière édition:
