Répondre à la discussion

Message

<blockquote data-quote="jo77" data-source="post: 20476639" data-attributes="member: 365060">Bonjour à vous,Je bloque depuis un petit moment sur une macro que j'aimerai faire.Sauf erreur de ma part, aucune formule Excel ne me permet de le faire.C'est un peu l'équivalent d'un recherche V sauf que j'ai plusieurs lignes différentes à reporter sur une autre feuille.Pour faire simple, voici les étapes en français :Rechercher la valeur d'une cellule de la feuille 2 dans la colonne A de la feuille 1Si la valeur est présente, alors recopier seulement les données des lignes de la colonne D, G, H, I, K.Dans les colonnes C, D, E, F, G à partir de la cellule C86La Macro ci-après fonctionne bien. Mais me recopie les valeurs à partir de C2. Or j'en ai besoin à partir de C86.Merci pour votre aide <img src="data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7" class="smilie smilie--sprite smilie--sprite1" alt=":)" title="Smile&nbsp; &nbsp; :)" loading="lazy" data-shortname=":)" />[CODE=vb]Option ExplicitSub test()Dim x As LongDim y As LongDim c As RangeDim rdata As Range' Déterminer la dernière ligne de la Feuille 1x = Sheets(&quot;Actions - Risques&quot;).Range(&quot;A65536&quot;).End(xlUp).Row' Déterminer la dernière ligne de la Feuille 2 + 1y = Sheets(&quot;feuil5&quot;).Range(&quot;C65536&quot;).End(xlUp).Row + 1' Déterminer la Plage de référence dans la Feuille 1' dans la Colonne B ... à partir de la ligne 2 jusqu'à xSet rdata = Sheets(&quot;Actions - Risques&quot;).Range(&quot;A2:A&quot; &amp; x)' Effacer les anciennes lignes des anciennes demandesIf y &gt;= 2 Then Sheets(&quot;feuil5&quot;).Range(&quot;A2:G&quot; &amp; y).ClearContents' Boucle dans la plage de référenceFor Each c In rdata&nbsp; ' Si la valeur de la cellule est égale à la&nbsp; ' valeur choisie en F2 de la Feuille 2&nbsp; If c.Value = Sheets(&quot;feuil5&quot;).Range(&quot;I13&quot;).Value Then&nbsp; ' dans ce cas, copier depuis la Feuille 1, la plage A:D&nbsp; ' vers la Feuille 2 dans la Colonne A à la premiére ligne libre&nbsp; &nbsp; Sheets(&quot;Actions - Risques&quot;).Range(&quot;D&quot; &amp; c.Row).Copy Destination:=Sheets(&quot;feuil5&quot;).Range(&quot;C&quot; &amp; y)&nbsp; &nbsp; Sheets(&quot;Actions - Risques&quot;).Range(&quot;G&quot; &amp; c.Row).Copy Destination:=Sheets(&quot;feuil5&quot;).Range(&quot;D&quot; &amp; y)&nbsp; &nbsp; Sheets(&quot;Actions - Risques&quot;).Range(&quot;H&quot; &amp; c.Row).Copy Destination:=Sheets(&quot;feuil5&quot;).Range(&quot;E&quot; &amp; y)&nbsp; &nbsp; Sheets(&quot;Actions - Risques&quot;).Range(&quot;I&quot; &amp; c.Row).Copy Destination:=Sheets(&quot;feuil5&quot;).Range(&quot;F&quot; &amp; y)&nbsp; &nbsp; Sheets(&quot;Actions - Risques&quot;).Range(&quot;K&quot; &amp; c.Row).Copy Destination:=Sheets(&quot;feuil5&quot;).Range(&quot;G&quot; &amp; y)&nbsp; &nbsp; &nbsp; End If&nbsp; ' Recalculer la première ligne libre de la Feuille 2&nbsp; y = Sheets(&quot;feuil5&quot;).Range(&quot;c65536&quot;).End(xlUp).Row + 1' Retour de la boucle pour passer à la cellule suivanteNext cEnd Sub[/CODE]</blockquote>

[QUOTE="jo77, post: 20476639, member: 365060"] Bonjour à vous, Je bloque depuis un petit moment sur une macro que j'aimerai faire. Sauf erreur de ma part, aucune formule Excel ne me permet de le faire. C'est un peu l'équivalent d'un recherche V sauf que j'ai plusieurs lignes différentes à reporter sur une autre feuille. Pour faire simple, voici les étapes en français : Rechercher la valeur d'une cellule de la feuille 2 dans la colonne A de la feuille 1 Si la valeur est présente, alors recopier seulement les données des lignes de la colonne D, G, H, I, K. Dans les colonnes C, D, E, F, G à partir de la cellule C86 La Macro ci-après fonctionne bien. Mais me recopie les valeurs à partir de C2. Or j'en ai besoin à partir de C86. Merci pour votre aide :) [CODE=vb]Option Explicit Sub test() Dim x As Long Dim y As Long Dim c As Range Dim rdata As Range ' Déterminer la dernière ligne de la Feuille 1 x = Sheets("Actions - Risques").Range("A65536").End(xlUp).Row ' Déterminer la dernière ligne de la Feuille 2 + 1 y = Sheets("feuil5").Range("C65536").End(xlUp).Row + 1 ' Déterminer la Plage de référence dans la Feuille 1 ' dans la Colonne B ... à partir de la ligne 2 jusqu'à x Set rdata = Sheets("Actions - Risques").Range("A2:A" & x) ' Effacer les anciennes lignes des anciennes demandes If y >= 2 Then Sheets("feuil5").Range("A2:G" & y).ClearContents ' Boucle dans la plage de référence For Each c In rdata ' Si la valeur de la cellule est égale à la ' valeur choisie en F2 de la Feuille 2 If c.Value = Sheets("feuil5").Range("I13").Value Then ' dans ce cas, copier depuis la Feuille 1, la plage A:D ' vers la Feuille 2 dans la Colonne A à la premiére ligne libre Sheets("Actions - Risques").Range("D" & c.Row).Copy Destination:=Sheets("feuil5").Range("C" & y) Sheets("Actions - Risques").Range("G" & c.Row).Copy Destination:=Sheets("feuil5").Range("D" & y) Sheets("Actions - Risques").Range("H" & c.Row).Copy Destination:=Sheets("feuil5").Range("E" & y) Sheets("Actions - Risques").Range("I" & c.Row).Copy Destination:=Sheets("feuil5").Range("F" & y) Sheets("Actions - Risques").Range("K" & c.Row).Copy Destination:=Sheets("feuil5").Range("G" & y) End If ' Recalculer la première ligne libre de la Feuille 2 y = Sheets("feuil5").Range("c65536").End(xlUp).Row + 1 ' Retour de la boucle pour passer à la cellule suivante Next c End Sub[/CODE] [/QUOTE]

Vérification