Pierreavecunp
XLDnaute Nouveau
Bonjour,
je cherche à copier l'intégralité d'une ligne automatiquement si une certaine colonne contient un terme A ou un terme B (l'un ou l'autre provoque la copie des données au même endroit) dans une autre feuille du même fichier excel.
Ayant trouvé sur ce forum un code approchant, j'ai tenté vainement d'adapter le code, d'autant que ma feuille "source" contient deja du code (pour la création d'un menu déroulant à choix multiples non exclusifs).
J'avais trouvé ceci.
Je vous joins mon fichier , vidé de ses données sensibles. L'objet étant donc de copier la ligne (ou les colonnes homonymes qu'on retrouve dans la 3e feuille au moins) à partir du moment ou la colonne "mesure" mentionne TIG/TNRL.
Merci d'avance pour vos retours et dsl si c'est redondant avec d'autres sujets .
Edit : j'avais aussi essayé avec des formules (type =SI [@mesure]=TIG...) et ca n'avait pas fonctionné, les dates étaient restituées sous forme de nombre brut (non modifiable avec la commande format cellule) il y avait des sauts de ligne .
je cherche à copier l'intégralité d'une ligne automatiquement si une certaine colonne contient un terme A ou un terme B (l'un ou l'autre provoque la copie des données au même endroit) dans une autre feuille du même fichier excel.
Ayant trouvé sur ce forum un code approchant, j'ai tenté vainement d'adapter le code, d'autant que ma feuille "source" contient deja du code (pour la création d'un menu déroulant à choix multiples non exclusifs).
VB:
Code:
Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
If c.Column <> 11 Or c.Count > 1 Or c.Row < 6 Then Exit Sub
If c = "oui" Then c.Offset(, -9).Resize(, 5).Copy Destination:=Sheets("Adresses envoi"). _
Range("a" & Rows.Count).End(xlUp)(2): c.Offset(1, 0).Select
End Sub
J'avais trouvé ceci.
Je vous joins mon fichier , vidé de ses données sensibles. L'objet étant donc de copier la ligne (ou les colonnes homonymes qu'on retrouve dans la 3e feuille au moins) à partir du moment ou la colonne "mesure" mentionne TIG/TNRL.
Merci d'avance pour vos retours et dsl si c'est redondant avec d'autres sujets .
Edit : j'avais aussi essayé avec des formules (type =SI [@mesure]=TIG...) et ca n'avait pas fonctionné, les dates étaient restituées sous forme de nombre brut (non modifiable avec la commande format cellule) il y avait des sauts de ligne .