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

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Aquhydro

XLDnaute Nouveau
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 !
 
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 :

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
764
Retour