[VBA]copier coller si n'importe ou dans la colone 1 il y a une certaine valeur...

[Aquhydro]

Bonjour,

J'ai un tableau avec, en colone A des titres, en colone B des valeurs, mais le nombre de ligne est variable, ce qui fait que parfois j'ai les valeurs qui m'interessent en case B5, parfois en case B9, parfois en cas B10, etc... et parfois pas du tout!
Le seul vrai indicateur est le titre en colone A, donc ce que je voudrais c'est, si n est le numéro de ligne, avoir une formule en VBA donc, qui me permette de cherche dans la colone A "ky=" qui sera en case An, et de copier la case Bn, pour la coller ensuite ailleurs.
Et si il n'y a pas de ky= et bien faire une autre opération.

Je maitrise toute la partie collage, même la formule pour selectionner et coller, tout ce qui est placement dans le bon fichier, j'ai juste besoin de rechercher dans la colone comme décris ci dessus...

Merci beaucoup !

 

[VDAVID]

Re : [VBA]copier coller si n'importe ou dans la colone 1 il y a une certaine valeur..

Bonjour Aquhydro,

Une proposition ci-dessous:

nom Feuille cible: "Feuil1"
Si en colonne A : "ky="
Si en colonne B : Valeur cherchée

Colonne de destination: colonne C

Un fichier en pièces jointes aurait été plus simple

Code :

Sub cherchecopie()

    Dim c As Range
    Dim z As Long
    
  z = 0
        With Sheets("Feuil1").Range("A1:A" & Range("A65536").End(xlUp).Row) 'Plage de départ
        
        Set c = .Cells.Find("ky=", , xlValues, xlPart)
        
        
        
            If Not c Is Nothing Then
                
                firstAddress = c.Address
                
                Do
                z = z + 1
                c.Offset(0, 1).Copy Destination:=Range("C" & z) 'Plage d'arrivée
                Set c = .FindNext(c)
                Loop While Not c Is Nothing And c.Address <> firstAddress
                
            End If
            
       End With
       
End Sub

Bonne journée