br44
XLDnaute Impliqué
Bonjour a toutes et tous ,
et oui je reviens vers vous pour un petit coup de pouce .
voilà j'ai de feuille l'une source et l' autres pour la destination .
je souhaiterais coller la valeur de la cellule B122 de la feuille source en fonction
du n° de client affiché dans la cellule F6 dans la feuille source et dans la plage A7:A44 de la feuille de destination qui est équivalentes à la liste de tout les clients . le collage doit se faire à partir de la colonne C de feuille de destination .
exemple : si f6 affiche 5 alors coller B122 de la feuille source en "C5" de la feuille de destination .
je sais qu'il me faut faire une boucle sur la colonne a de la feuille de destination
mais propriété dois-je employer Bytes où Integer ?
et comme je déclare la variable x de la boucle ?
private Sub Copie()
Dim X as ?
with WSsource
.[b122].copy
end If
X=WsFC.range("A7:A44") ? où ("A7:A").end(Xlup).rown ect...
et pour finir
With WSFC
For x =1 to 38
if X.value= '' then X.value=wsSource[f6].value
.range("C"").pasteSpeciale paste:=XlpasteValue
end if
next X
end with
end sub
pourriez vous me dire sus je suis dans l bonne direction car actuellement même sans la boucle aucun résultat s'affiche dans la feuille de destination . je vous joint un fichier avec les deux feuilles
de plus je voudrais rajouter le condition suivante :
si le cellule H3 de feuille destination est cocher alors le prochain collage devras commencer en colonne "D" soit un décalage vers la droite même si la colonne C contiens des cellules vide .
mais je crois avoir réussi cette ligne de code mais pas pu encore la teste .
P.S la variable WS Destination étant déjà prise .Pour la feuille d'arriver j'ai choisi WSFC comme raccourci de variable .
La macro concerné se trouve dans la feuille "Détail suivi Client" bouton "Validation " dernier bouton de l'userform afficher elle commence par commande button3() et elle est signaler dans la dernier partie
du programme
en vous remerciant par avance de votre coup de main je vous dit a bientôt .Amicalement br4 4
et oui je reviens vers vous pour un petit coup de pouce .
voilà j'ai de feuille l'une source et l' autres pour la destination .
je souhaiterais coller la valeur de la cellule B122 de la feuille source en fonction
du n° de client affiché dans la cellule F6 dans la feuille source et dans la plage A7:A44 de la feuille de destination qui est équivalentes à la liste de tout les clients . le collage doit se faire à partir de la colonne C de feuille de destination .
exemple : si f6 affiche 5 alors coller B122 de la feuille source en "C5" de la feuille de destination .
je sais qu'il me faut faire une boucle sur la colonne a de la feuille de destination
mais propriété dois-je employer Bytes où Integer ?
et comme je déclare la variable x de la boucle ?
private Sub Copie()
Dim X as ?
with WSsource
.[b122].copy
end If
X=WsFC.range("A7:A44") ? où ("A7:A").end(Xlup).rown ect...
et pour finir
With WSFC
For x =1 to 38
if X.value= '' then X.value=wsSource[f6].value
.range("C"").pasteSpeciale paste:=XlpasteValue
end if
next X
end with
end sub
pourriez vous me dire sus je suis dans l bonne direction car actuellement même sans la boucle aucun résultat s'affiche dans la feuille de destination . je vous joint un fichier avec les deux feuilles
de plus je voudrais rajouter le condition suivante :
si le cellule H3 de feuille destination est cocher alors le prochain collage devras commencer en colonne "D" soit un décalage vers la droite même si la colonne C contiens des cellules vide .
mais je crois avoir réussi cette ligne de code mais pas pu encore la teste .
P.S la variable WS Destination étant déjà prise .Pour la feuille d'arriver j'ai choisi WSFC comme raccourci de variable .
La macro concerné se trouve dans la feuille "Détail suivi Client" bouton "Validation " dernier bouton de l'userform afficher elle commence par commande button3() et elle est signaler dans la dernier partie
du programme
en vous remerciant par avance de votre coup de main je vous dit a bientôt .Amicalement br4 4