Discussion :

[roidurif]

Bonjour a tous

ce que j'essaye de faire c'est tout simplement
j'ai deux onglets : 1) Fiche ; 2) Tableau

Quand je renseigne la fiche, j'aimerais à partir d'une macro recupérer ces données pour ensuite renseigner automatiquement le tableau.

Comment faire pour retranscrire cela à partir de l'onglet BDD : =SI(C2>0;'Fiche'!F17;0)

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub test2()
'With Sheets("BDD")
For Each x In Sheets("BDD").Range("C2", [C2].End(xlDown))
If x > 0 Then Sheets("Fiche").Range("F17").Copy
Sheets("BDD").Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Next x
'End With
End Sub

Ce j'ai reussi à faire c'est de copier / coller automatiquement les données "article" ; "description" et "prix" de la fiche vers le tableau, mais là où je bloque et que je n'arrive pas, c'est dire :

De renseigner la "date début", "date de fin", "numero client" et la "devise".

ci-joint mon fichier

Pourrais je avoir votre aide SVP?

merci

[Invité]

Bonsoir,

Déjà avant d'aller plus loin, en fonction de ce que je vois sur vos feuilles, essayer :

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
Sub test()
 
Sheets("BDD").Range("A2:CL65536").ClearContents
 
dlng = Range("C32").End(xlDown).Row
Sheets("Fiche").Range("C32:C" & dlng).Copy
Sheets("BDD").Range("C2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
 
Sheets("Fiche").Range("F32:F" & dlng).Copy
Sheets("BDD").Range("D2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Sheets("BDD").Range("E2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
 
Sheets("Fiche").Range("I32:I" & dlng).Copy
Sheets("BDD").Range("AH2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
 
Application.CutCopyMode = False
Sheets("Fiche").Range("C32").Select
End Sub

[roidurif]

merci Jacques_jean;

Mais ca ne m'aide pas pour le reste, ca je bloque pour la suite :

De renseigner la "date début", "date de fin", "numero client" et la "devise".

merci de laide

[roidurif]

Re,

J'ai fait cela, mais je ca ne commence pas à partir de la ligne 21 et non pas à partir de la ligne 2.

Code :

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

1
2
3
4
5
6
7
8
 
Sub tst2()
For Each x In Sheets("BDD").Range("C2", [C2].End(xlDown))
If x > 0 Then Sheets("Fiche").Range("F17").Copy
i = i + 1
Sheets("BDD").Range("A2" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Next
End Sub

merci de l'aide svp

[Krovax]

je ca ne commence pas à partir de la ligne 21 et non pas à partir de la ligne 2.

Ca fait tellement de négation que je me perd, ca ne commence pas a la ligne 21 et pas a la 2 ca commence ou alors?

A mon avis le problème bien de la

Code :

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

Range("C2", [C2].End(xlDown))

essaye

Code :

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

1
2
3
4
dlng = Sheets("BDD").Range("C65536").End(xlUp).Row
'ou en fonction de ce qui te conviens le mieu
dlng = Sheets("BDD").Range("C32").End(xlDown).Row
For Each x In Sheets("BDD").Range("C32:C" & dlng).

Edit Ca y est, je croi que j'ai compris ta phrase
avec
Range("A2" & i)
tu copie ligne
20
21
22
..
28
29
210
211

essaye un i=2 avant ta boucle for
et

Code :

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

Range("A" & i)

[roidurif]

Bonjour Krovax
J'ai fait ce que tu m'a dit et toujours rien.

Si je mets i = 2 ca colle à la ligne A2, mais ne continus pas à coller le numero client en A3, A4, A5

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub test3()
 
dlng = Sheets("BDD").Range("C65536").End(xlUp).Row
i = 2
For Each x In Sheets("BDD").Range("C2:C" & dlng)
If x > 0 Then Sheets("Fiche").Range("F17").Copy
Sheets("BDD").Range("A" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone
Next
End Sub

merci de l'aide svp

merci