A voir également:
- Remplir des cellules sur plusieurs feuilles à partir d'une liste
- Liste déroulante excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Comment faire une recherche à partir d'une photo - Guide
- Comment faire un livret avec des feuilles a4 - Guide
1 réponse
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
525
12 juin 2015 à 21:04
12 juin 2015 à 21:04
Bonjour,
Avec un exemple, c'est plus simple ....
https://www.cjoint.com/c/EFmtdf4p6mK
A+
Avec un exemple, c'est plus simple ....
https://www.cjoint.com/c/EFmtdf4p6mK
A+
12 juin 2015 à 22:38
J'ai du mal expliqué une partie de ce que je souhaite.
J'aimerais que sur la feuille 1, la premiere ligne du tableau apparaisse, sur la feuille 2 la second, etc.
C'est à dire que sur chaque feuille j'ai nom prénom date de naissance qui apparaissent...
Donc d'après ton exemple, il faudrait que sur la première feuille je n'ai que Dupont Paul 01/01/2001
sur la seconde Dubois Robin etc...
Et tout ça en cellule A8 C8 F8 :)
Merci d'avance Gyrus, j'espère que je suis un peu plus clair...
12 juin 2015 à 23:01
A+
13 juin 2015 à 10:17
Si je peux un peu abuser, j'aimerais comprendre le code pour le modifier exactement comme je le souhaite:
Sub Transferer()
Dim WsS As Worksheet cela défini les feuilles concernées?
Dim i As Byte
Set WsS = Worksheets("Feuil1") 'Feuille source ok pour la feuille source
For i = 2 To 4 Si je comprend bien, tu créés une variable que tu nommes i. 2 to 4, c'est pour dire qu'on commence à la feuille 2 et qu'on termine à la 4?
Worksheets(i).Range("A8") = WsS.Range("A" & i).Value la je ne comprend pas vraiment ahah mais en gros, on met dans A8 ce qu'on trouve en colonne A pour A=i?
Worksheets(i).Range("C8") = WsS.Range("B" & i).Value
Worksheets(i).Range("F8") = WsS.Range("C" & i).Value
Next i
MsgBox "Traitement terminé !"
End Sub
Merci encore pour ton explication!
13 juin 2015 à 10:40
For i = 2 To 4 Si je comprend bien, tu créés une variable que tu nommes i. 2 to 4, c'est pour dire qu'on commence à la feuille 2 et qu'on termine à la 4 ?
C'est bien cela.
Il faut donc impérativement que la feuille source soit la feuille 1.
Worksheets(i).Range("A8") = WsS.Range("A" & i).Value la je ne comprend pas vraiment ahah mais en gros, on met dans A8 ce qu'on trouve en colonne A pour A=i?
Là, j'utilise le fait que les données de la ligne 2 de la feuille source doivent être copiées dans la feuille 2, les données de la ligne 3 dans la feuille 3, etc.
L'indice i correspond donc à la fois au numéro de feuille où s'effectue la copie et au numéro de la ligne copiée.
A+
13 juin 2015 à 11:08
merci pour tes réponses et ta pédagogie ;)