Récupérer les données d'un tableau dans un autre onglet

[niiiiiiiiiico]

Bonsoir,

Un fichier valant mieux qu'un long discours, mon problème est évoqué dans le fichier joint😀

Merci à ceux qui pourront m'aider !

 

[jp14]

Re : Récupérer les données d'un tableau dans un autre onglet

Bonsoir

Ci dessous le fichier avec une macro.

A tester

JP

 

[niiiiiiiiiico]

Re : Récupérer les données d'un tableau dans un autre onglet

Bonjour

Merci pour cette réponse !

Deux questions sur la macro

La macro marche sur le fichier joint, mais si je copie colle le code, elle ne marche pas (pas de message d'erreur, mais rien ne s'inscrit). Pourtant, le nom des feuilles reste inchangé, la structure des feuilles reste la même. Je vois pas 😕

Si j'ai plusieurs sources différentes (codir2, codir3, codir4, etc.) comment le code doit-il être modifié ?

Encore merci !

 

[niiiiiiiiiico]

Re : Récupérer les données d'un tableau dans un autre onglet

Bonjour,

Pas d'idées ?

 

[jp14]

Re : Récupérer les données d'un tableau dans un autre onglet

Bonjour
Ci joint le fichier avec la procédure modifiée pour tenir compte des feuille "codir..".

A tester

JP

 

[niiiiiiiiiico]

Re : Récupérer les données d'un tableau dans un autre onglet

Bonjour et merci pour cette réponse, ça a l'air de marcher !!

J'ai cependant une question. Est-il possible d'ajouter également des données dans d'autres cellules ? Ceci est expliqué dans la bulle bleue du fichier en PJ

Encore merci !

 

[niiiiiiiiiico]

Re : Récupérer les données d'un tableau dans un autre onglet

Bonsoir,

Des idées ?

 

[jp14]

Re : Récupérer les données d'un tableau dans un autre onglet

Bonsoir

Pour rajouter des données dans les colonnes il suffit d'écrire comme ci dessous

If cellule.Value = data1 Then
                    Sheets(nomfeuille2).Range("C" & dl2).Value = cellule.Offset(0, -2).Value

                    ' pour rajouter des infos il suffit de recopier cette ligne en changeant les données en rouge
                    Sheets(nomfeuille2).Range([COLOR="red"]"D"[/COLOR] & dl2).Value = cellule.Offset(0,[COLOR="red"] 1[/COLOR]).Value
'D colonne de destination
' 1 est le décalage entre la colonne Eet la colonne F

                    dl2 = Sheets(nomfeuille2).Range(col2 & "65536").End(xlUp).Row + 1
                 End If

JP

 

[niiiiiiiiiico]

Re : Récupérer les données d'un tableau dans un autre onglet

Merci beaucoup, c'est parfait