Macro pour copier automatiquement une matricule

[anasimo]

Bonjour

cherche mac pour copier 1 matricule (j'ai déja testé la fonction IF, trop long)...j'explique

Dans la cellule D16 de la feuille "module" j'ai 1 matricule
je veux que cette matricule soit copiée dans la colonne B des feuilles BD1 BD2 et BD3 à chaque qu'il y a des données dans ces colonnes

feuilles BD1 BD2 et BD3

 

[xUpsilon]

Bonjour

Dim i as integer
i = 2

Do While Range("BD1!D" & i) <> ""
    Range("BD1!B & i") = Range("Module!D16")
    Range("BD2!B & i") = Range("Module!D16")
    Range("BD3!B & i") = Range("Module!D16")
    i = i +1
Loop

Est-ce que c'est cela que tu veux ?

Bonne continuation

 

[anasimo]

Bonjour

Dim i as integer
i = 2

Do While Range("BD1!D" & i) <> ""
    Range("BD1!B & i") = Range("Module!D16")
    Range("BD2!B & i") = Range("Module!D16")
    Range("BD3!B & i") = Range("Module!D16")
    i = i +1
Loop

Est-ce que c'est cela que tu veux ?

Bonne continuation

bizarre marche pas....
juste une chose le code doit être copié une fois y a donnée dans la colonne D de chaque feuille (bd1,2 et3).
exemple: s'il y a données dans colonne D des feuilles BD1 et BD2 le code va être générer uniquement dans ces feuilles (pas BD3)...etc

 

[xUpsilon]

Je ne suis pas sûr de comprendre ce que tu souhaites. La macro permet de remplir toutes les lignes des BD1 2 et 3 dans la colonne B avec le matricule indiqué dans "Module".

Que veux tu faire ?

 

[anasimo]

Je ne suis pas sûr de comprendre ce que tu souhaites. La macro permet de remplir toutes les lignes des BD1 2 et 3 dans la colonne B avec le matricule indiqué dans "Module".

Que veux tu faire ?

Exactement...mais pas les lignes juste les cellules de la colonne B des feuilles bd1 2 et 3 s'il y a un tableau rempli

 

[xUpsilon]

J'avais fait une erreur dans mon code, voici une version corrigée fonctionnelle.

Bonne continuation

 

[anasimo]

dommage ...marche pas aussi 🙁

 

[xUpsilon]

Qu'est ce qui ne marche pas ? Tu peux m'envoyer quelle ligne pose problème et quelle est l'erreur stp ?

 

[xUpsilon]

Mmh, il y avait un problème d'activation de la feuille avant de pouvoir l'atteindre et l'utiliser visiblement. Du coup le coup fonctionnait (ou pas) en fonction de la feuille sur laquelle on était positionné.
Regarde avec le document ci-joint.

Bonne continuation

 

[anasimo]

 

[anasimo]

maintenant ça marche ...mais le soucis il se génère même si la feuille est vide....voir image

il ne doit se générer que la colonne D des feuilles contiennent des données

 

[xUpsilon]

Ah donc ça dépend de chaque feuille séparément ? Je croyais que tu avais les mêmes données sur chaque feuille plus ou moins, que les tableaux faisaient la même taille, et du coup j'ai basé la taille de la copie du terme sur la taille du tableau présent sur la feuille BD1.
D'où l'importance d'une question bien posée 😉

Regarde ci-joint,
Bonne continuation

 

[jborm2b]

Salut je t'ai fait ton fichier avec cette formule: =SI(ESTTEXTE(D2😀8);module!$D$16;"") . Je t'ai mis les cases en jaune la ou la formule est faites.

 

[anasimo]

y a un problème kelk part quand j'ajoute d'autre données

 

[anasimo]

Salut je t'ai fait ton fichier avec cette formule: =SI(ESTTEXTE(D2😀8);module!$D$16;"") . Je t'ai mis les cases en jaune la ou la formule est faites.

j'ai déja essayé ça...je cherche 1 macro ....car pour ton cas fois à chaque copier la formule