Discussion :

[guilld]

Bonjour à tous !

Via du VBA et son bouton associé..

Je tente de recopier toutes les valeurs saisies dans la colonne AA (plage AA13 jusqu'à "indefini", plage non fixe) de ma feuille "Formulaire", vers ma feuille "Demande" (colonne V).

La condition : La valeur de la colonne E (de Formulaire) et D (de Demande) soit égale.

merci pour le coup de pouce

[Trystan441]

Bonjour,

Essaye ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Test()
 
dim WsForm as worksheet, WsDde as worksheet
set WsForm = thisworkbook.worksheets("Formulaire")
set WsDde = thisworkbook.worksheets("Demande")
 
with wsform
 
if .range("E1")=.range("D1") then
 
.range("AA13:AA" & .cells(rows.count,27).end(xlup).row).copy destination:=WsDde.range("V1")
 
end if
 
end with

[guilld]

Merci Trystan441.

Nous y sommes presque .. il faut que la valeur copie se place sur la bonne ligne.. cela ne peut pas être "V1" comme destination.. mais plutot la ligne où la valeur repérée est identique.

En fait il faudrait balayer la Colonne AA (onglet Formulaire) pour repérer les valeurs à recopier vers la colonne V (onglet Demande) où AA (onglet Formulaire) est = D (onglet Demande)

[Trystan441]

Re,

Pas de soucis mais peut être que tu aurais pu l'expliquer dans ton premier message

Une question : Cas concret

Copie vers la ligne identique :
Valeur en E10 et D10 égale -> Copie de AA10 (Formulaire) vers V10 (Demande)

OU

Copie vers la première ligne vide
Valeur en E10 et D10 égale -> Copie de AA10 (Formulaire) vers V5 (Demande)

Laquelle de ces deux possibilités est la bonne ?

[guilld]

Effectivement, j'ai merdé sur l'explication ! désolé

donc..: "xx" etant le n° de la ligne..

Valeur en E"xx" (Formulaire) et D"xx" (Demande) égale => copie de AA"xx" (Formulaire) (même ligne que E"xx"), vers V"xx" (Demande)

les valeurs qui sont égales ne sont pas forcement sur la même ligne entre les 2 onglets...
par contre, sur l'onglet Formulaire, oui

doit y avoir une histoire de bloucle quelque part à faire..

oulà!! j'espère que je suis clair!

[Trystan441]

Je t'avoue que je n'ai pas tout compris mais tu vas me dire si le code ci-dessous te convient !

Je n'ai pas testé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Transfert
 
dim i as long, j as long
 
dim WsForm as worksheet, WsDde as worksheet
set WsForm = thisworkbook.worksheets("Formulaire")
set WsDde = thisworkbook.worksheets("Demande")
 
dim TabForm() as variant, TabDde() as variant
tabform=wsform.usedrange.value
tabdde=wsdde.usedrange.value
 
 
for i = 2 to ubound(tabform,1)
for j = 2 to ubound(tabdde,1)
 
if tabform(i,5)=tabdde(j,4) then tabdde(j,22)=tabform(i,27)
 
next j
next i
 
Wsdde.Range("A1").Resize(UBound(Tabdde, 1), UBound(Tabdde, 2)) = Tabdde
 
end sub