Discussion :

[Nicolas751]

Bonjour à tous,

Je souhaiterais faire une macro qui remplisse un tableau automatiquement à partir d'un onglet de saisie.
Je vois comment faire le début de macro : selection puis copie mais c’est après que je n’y arrive plus car il faut coller les valeurs au bon endroit (ligne du produit concerné et mois/année), endroit qui va changer selon les cas
Et c’est là que je ne sais pas faire en temps normal j’aurais fais un INDEX EQUIV pour trouver mais ca ne doit pas marcher

J’imagine que c’est très simple mais bon ...

Merci beaucoup,

Nicolas

[Philippe PONS]

Salut,

Ca va dépendre de l'organisation de tes données.
Disons que pour écrire une donnée dans une cellule, il faut
déterminer la ligne(produit) et la colonne(mois/année)
et là tu peux utiliser la méthode Range.Find pour trouver
la ligne du produit et la colonne du mois/année

Cordialement,

[Invité]

bonjour,
pour apporter un précision à ce qu'a dit Philippe, le copier collé, dans bon nombre de cas ne pas obligatoire!

si tu copie des formule d'un classeur vers un autre, si tu ne gère pas les directive du collé tu risque d’établir un lien entre les 2 classeur!

Code :

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

1
2
3
range("A1")=10 'va placer la valeur 10 dans A1 sens copier collé!
 
range("A1").Resize(10,5)=tableau 'vas écrire ton tableau de 10 ligne et de 5 colonne sens copier collé!

[Nicolas751]

Bonjour,

Merci beaucoup c'est tout à fait ça

Je cherche à copier des chiffres (et non des formules donc pas de risque) saisis sur une plage (ex: G9:R9 pour 12 mois)
dans un autre onglet en fonction d'un produit (surement en H9) et d'une année (surement G3) et d'un mois (surement G4) qui pourront changer


J'imagine qu'il suffit de déterminer une seule cellule cible comme pour un collage classique dont les coordonnées seront effectivement :
-numéro de ligne = produit
-colonne = mois + année

Par contre de ce que je vois pour Range.Find le premier objet What est fixe donc je suis un peu perdu sur la syntaxe car dans mon cas il est variable et déterminé par les 3 paramètres cités ci-dessus

L'objectif final étant d'historiser les chiffres saisis en balayant les produits 1 par 1

[Invité]

Tu parle d'histoiriser ? Si tu veux rajouter en fin d'onglets et pas modifier l'existant tu as le filtre élaboré!

http://philippetulliez.developpez.co...dvancedfilter/

[Nicolas751]

Je ne connaissais pas cette fonction très sympa et j'imagine qu'on peut mettre un INDEX EQUIV dans la cible mais on ne peut pas définir de cible pour la copie dans un autre onglet et si on veut le faire pour différentes plages il faut retaper la plage à chaque fois (voire la formule ?)
je pense plutôt à un bouton avec macro par ligne à copier qui viendra remplir l'autre onglet soit les cellules étant soit en écrasant les chiffres précédents
la difficulté étant de copier à des endroits variables en fonction des critères

[Nicolas751]

Voilà le code final

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
Sub lmkjmjkmk()
With Sheets("SAISIE")
For i = 5 To 29
If .Range("f" & i) = "Décision" Then
produit = .Range("a" & i)
annee = .Range("e" & i)
Sheets("SAISIE").Range("g" & i & ":r" & i).Copy
 
Sheets("DONNEES").Select
ligne = Cells.Find(What:=produit, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Row
 
colonne = Cells.Find(What:=annee, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Column
 
Cells(ligne, colonne).Select
ActiveSheet.Paste
End If
Next i
End With
End Sub