Autres Recherche et copie de cellule

sylvanu à dit:

Bonjour Théo,
J'ai beaucoup aimé :

Ben, moi non plus.
Il semblerait que vous ayez copié une macro qui a un Shape ( dessin ou objet ) à chaque ligne. On extrait le nom de ce Shape qui est censé avoir un nom particulier pour en extraire le numéro de ligne.
Si c'est le cas il y a plus simple, ce qui évite un bouton à chaque ligne, ce qui est lourd.

Dans la PJ vous cliquez sur la ligne que vous voulez copier, et appuyez sur le bouton. J'ai mis des msgbox pour suivre le cheminement mais vous pouvez les supprimer.

VB:

Sub OLRT501CRBIS()
Dim NS$, LC%, lig%
LC = ActiveCell.Row ' Récupère le N° de ligne à comier
If MsgBox("Confirmer vous vouloir copier la ligne " & LC & " ?", vbYesNo) = vbNo Then Exit Sub
If Range("C" & LC) = "" Then Exit Sub ' car pas de chatier donc ligne considérée comme non copiable.
On Error GoTo pastrouvé
lig = Sheets("SYNTHESE").Columns(4).Find(Sheets("0LRT501CRBIS").Range("B2")).Row
With Worksheets("SYNTHESE")
   .Range("N" & lig).Value = Sheets("0LRT501CRBIS").Range("C" & LC).Value
   .Range("O" & lig).Value = Sheets("0LRT501CRBIS").Range("D" & LC).Value
   .Range("P" & lig).Value = Sheets("0LRT501CRBIS").Range("E" & LC).Value
   .Range("Q" & lig).Value = Sheets("0LRT501CRBIS").Range("F" & LC).Value
   .Range("R" & lig).Value = Sheets("0LRT501CRBIS").Range("G" & LC).Value
   .Range("S" & lig).Value = Sheets("0LRT501CRBIS").Range("H" & LC).Value
   .Range("T" & lig).Value = Sheets("0LRT501CRBIS").Range("I" & LC).Value
   .Range("W" & lig).Value = Sheets("0LRT501CRBIS").Range("J" & LC).Value
End With
MsgBox "La ligne " & LC & " a été copiée dans la feuille Synthèse"
Exit Sub
pastrouvé:
MsgBox "Je ne trouve pas cette équipement"
End Sub

Evidemment je ne suis pas sur que c'est cela que vous cherchez à faire. Dans le cas contraire, mes excuses, et essayez de préciser le besoin.

Cliquez pour agrandir...