Copie de cellules vers d'autres à partir d'une feuille correspondence

Créer une discussion
Répondre

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
G

guigui1492

XLDnaute Nouveau
Bonjour,
Je suis nouveaux sur le forum, et j'ai un soucie en VBA j'ai cherché sur le forum une solution à mon problème mais sans success. Je me demandai si vous pouviez m'aider?

Je cherche à copier des cellules dans d'autres ( pour l'instant aucun probléme ) mais je veux passer par une feuille xls mapping (premiere ligne les cellules source et 2éme ligne les cellules destinations). Cette feuille me permet de ne pas modifier le code si jamais les correspondances ne sont pas bonnes mais de modifier la feuille.

J'avais pensé à un code de ce genre

Sub Test()
'on declare la variable comme une cell
Dim NomVariable As Range
'variable = la valeur de la cell b2 de la feuille 2 or dans B2 sheet2 on la valeur C3
NomVariable = Workbooks("book1").Sheets("Sheet2").Range("B2").Value

'on copie la cell "NomVariable" (soit c3) de sheet1 dans une cellule( sheet3 range A1)

Sheets("Sheet1").Range("NomVariable").Cells.Copy Workbooks("book1").Sheets("Sheet3").Range("A1")


End Sub

mais "Sheets("Sheet1").Range("NomVariable").Cells.Copy Workbooks("book1").Sheets("Sheet3").Range("A1")

" ne marche pas (ça aurait été trop beau). Pouvez-vous m'aider?

Merci

Cordialement
 
Trier par date Trier par votes
Re : Copie de cellules vers d'autres à partir d'une feuille correspondence

Bonjour,

si j'ai bien compris, dans ta feuille Mapping, tu écris sur la première ligne les cellules à copier (A1 A2 A3 A4)
et en ligne 2, tu écris leur destination (B1 B2 B3 B4)

avec ceci. tu devrais avoir un point de départ pour adapter à ton code
Code: 
Sub Test()
'on récupère les adresses des cellules d'origine et de destination
CellOrigine = ThisWorkbook.Sheets("Mapping").Range("A1")
CellDestination = ThisWorkbook.Sheets("Mapping").Range("A2")

'et on copie
Sheets("Feuil1").Range(CellOrigine).Copy ThisWorkbook.Sheets("Feuil3").Range(CellDestination)
End Sub
 
Vote positif 0 Vote négatif
Re : Copie de cellules vers d'autres à partir d'une feuille correspondence

bonjour vgendron,

merci pour ta réponse, si j'ai bien compris le problem de mon code était les " au tour de ma variable.

Et Vgendron penses-tu qu'il est possible d'incrémenter ce code avec un
Code: 
CellOrigine = ThisWorkbook.Sheets("Mapping").Range("Ai")
 CellDestination = ThisWorkbook.Sheets("Mapping").Range("Bi")
?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Copie de cellules vers d'autres à partir d'une feuille correspondence

Re
Bien sur
à la syntaxe près
le Range attend une chaine de caractère qui représente l'adresse de la cellule
une chaine est donc entre guillement "A1"
toi ce que tu souhaites, c'est avoir le 1 variable avec un i
il faut donc "reconstruire" la chaine de caractère en faisant une concaténation entre la lettre "A" et le contenu de la varaibla i
ce qui donne "A" &i
Code: 
for i = 1 to 10
CellOrigine = ThisWorkbook.Sheets("Mapping").Range("A"&i)
CellDestination = ThisWorkbook.Sheets("Mapping").Range("B"&i)
Sheets("Feuil1").Range(CellOrigine).Copy ThisWorkbook.Sheets("Feuil3").Range(CellDestination)
Next i
 
Vote positif 0 Vote négatif
Re : Copie de cellules vers d'autres à partir d'une feuille correspondence

Par contre, je viens de voir
si tu prends la colonne A pour les origines et la colonne B pour les destinations, tes adresses doivent etre en colonne et pas en ligne comme tu l'as écris dans ton premier post.
 
Vote positif 0 Vote négatif
Re : Copie de cellules vers d'autres à partir d'une feuille correspondence

ah oui juste ça ne sera pas les chiffres mais les collone à incrémenter tu veux bien me donner la syntax stp?
Et aussi je suis pas fan du "for" je prefer un while si ca existe en VBA, pareil si tu peux me donner la syntax ?

Merci, tu m'aide bien ^^
 
Vote positif 0 Vote négatif
Re : Copie de cellules vers d'autres à partir d'une feuille correspondence

Code: 
Sub Test()
'on récupère les adresses des cellules d'origine et de destination
i = 1
While i <= 4 '4 étant ici un nombre mis arbitrairement
    CellOrigine = ThisWorkbook.Sheets("Mapping").Cells(i, 1)
    CellDestination = ThisWorkbook.Sheets("Mapping").Cells(i, 2)
    Sheets("Feuil1").Range(CellOrigine).Copy ThisWorkbook.Sheets("Feuil3").Range(CellDestination)
    i = i + 1
Wend

End Sub
 
Vote positif 0 Vote négatif
Re : Copie de cellules vers d'autres à partir d'une feuille correspondence

Bonjour tout le monde,

Hier j'ai fait ce post mais je voudrai apporter des modifications car le code propose par Vgendron me parraissait correspondre à ce don't je cherchai mais pas tout à fait. Je vais joindre un fichier qui expose mon problem de maniére plus lisible.

cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Copie de cellules vers d'autres à partir d'une feuille correspondence

Hello

Essaie ceci
Code: 
Sub test()
Dim Colorigine, Coldestination As String
'pour savoir le nombre d'itération pour la boucle While
NbColonnes = Range("A1").End(xlToRight).Column
i = 1
While i <= NbColonnes
    Colorigine = Sheets("Mapping").Cells(1, i)
    Coldestination = Sheets("Mapping").Cells(2, i)
    Sheets("Sheet3").Range(Colorigine & ":" & Colorigine).Cells.Copy Sheets("Sheet1").Range(Coldestination & ":" & Coldestination)
    i = i + 1
Wend
End Sub
 
Vote positif 0 Vote négatif
Re : Copie de cellules vers d'autres à partir d'une feuille correspondence

Ou plutot ceci..
je crois que j'avais inversé les colonnes origine et destination
Code: 
Sub test()
Dim Colorigine, Coldestination As String
'pour savoir le nombre d'itération pour la boucle While
NbColonnes = Range("A1").End(xlToRight).Column
i = 1
While i <= NbColonnes
    Colorigine = Sheets("Mapping").Cells(2, i)
    Coldestination = Sheets("Mapping").Cells(1, i)
    Sheets("Sheet3").Range(Colorigine & ":" & Colorigine).Cells.Copy Sheets("Sheet1").Range(Coldestination & ":" & Coldestination)
    i = i + 1
Wend
End Sub
 
Vote positif 0 Vote négatif
Re : Copie de cellules vers d'autres à partir d'une feuille correspondence

Parfait Vgendron ça marche niquel. Enfin juste si je ne veux pas que les titres soit copié et que ça commence à copier qu'a la ligne 5 de ma feuille destination ? je te dis si je trouve la syntax car je pense à un truc du genre
Code: 
Sub test()
 Dim Colorigine, Coldestination As String
 'pour savoir le nombre d'itération pour la boucle While
 NbColonnes = Range("A1").End(xlToRight).Column
 i = 1
 While i <= NbColonnes
     Colorigine = Sheets("Mapping").Cells(2, i)
     Coldestination = Sheets("Mapping").Cells(1, i)
     Sheets("Sheet3").Range(Colorigine & 2 ":" & Colorigine).Cells.Copy Sheets("Sheet1").Range(Coldestination & 5 ":" & Coldestination)
     i = i + 1
 Wend
 End Sub
 
Vote positif 0 Vote négatif
Re : Copie de cellules vers d'autres à partir d'une feuille correspondence

C'est presque ca ;-)

Code: 
Sub test()
Dim Colorigine, Coldestination As String
'pour savoir le nombre d'itération pour la boucle While
NbColonnes = Range("A1").End(xlToRight).Column
i = 1
While i <= NbColonnes
    Colorigine = Sheets("Mapping").Cells(2, i)
    Coldestination = Sheets("Mapping").Cells(1, i)
    num = Sheets("Sheet3").Range(Colorigine & "2").End(xlDown).Row
    Sheets("Sheet3").Range(Colorigine & "2:" & Colorigine & num).Cells.Copy Sheets("Sheet1").Range(Coldestination & "5:" & Coldestination & "5")
    i = i + 1
Wend
End Sub
 
Vote positif 0 Vote négatif
Re : Copie de cellules vers d'autres à partir d'une feuille correspondence

Bonjour,
J'ai de nouveau un probléme de syntax comme dis dans mon avant-derniére réponse je voulais que ça soit copié dés la ligne 5 de ma feuille destination mais si j'ai une variable a la place ? (une variable integer)
Code: 
Dim Firstline As Integer
Firstline = Sheets(sheet3).range("C5").value
Sheets("Sheet3").Range(Colorigine & "2:" & Colorigine & num).Cells.Copy Sheets("Sheet1").Range(Coldestination & Firstline & ":" & Coldestination & Firstline)

Mais ça ne marche pas, ca me mets que ca ne peut être copié car la copie et le coulé ne font pas la taille.
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Résolu(e)
XL 2019 Copier et renommer (en même temps) des feuilles à partir d'une liste de noms dans un colonne
Réponses
13
Affichages
2 K
Clemee61
C
cocro
  • Question Question
Microsoft 365 Créer autant d'onglet que de commune dans ma base principale
Réponses
14
Affichages
713
job75
job75
CGU2022.
  • Résolu(e)
XL 2013 VBA copie feuille et colle sans Objet (Shape-Image)
Réponses
5
Affichages
971
CGU2022.
CGU2022.
G
  • Question Question
XL 2019 VBA / Macro Impression avec nombre de copies variables par feuille à imprimer
Réponses
5
Affichages
2 K
Gasner
G
9
  • Question Question
Microsoft 365 Copier Coller les données (cellules) de plusieurs feuilles d'un classeur vers plusieurs autres feuilles d'un classeur
Réponses
5
Affichages
1 K
92lever
9
B
  • Question Question
XL 2019 Rechercher la ligne d'un tableau et mettre à jour une cellule VBA
Réponses
0
Affichages
2 K
bluesky12000
B
L
  • Résolu(e)
Microsoft 365 Macro copie de lignes entières d'un onglet général vers onglets détaillés à partir d'une colonne oui/non
Réponses
9
Affichages
2 K
job75
job75
A
  • Question Question
XL 2010 Copier les données d'une feuille dans dans une nouveau classeur
Réponses
8
Affichages
2 K
Staple1600
Staple1600
S
  • Question Question
XL 2016 VBA Recopie de valeurs de cellules d'une feuille vers une autre à la suite
Réponses
5
Affichages
2 K
safranien
S
tdo88
  • Résolu(e)
XL 2016 Erreur d'exécution 9 - L'indice n'appartient pas à la sélection (recherche de la dernière ligne vide d'une feuille)
Réponses
7
Affichages
2 K
tdo88
tdo88
GADENSEB
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
GADENSEB
Fredox
  • Question Question
XL 2016 [Résolu] - [VBA] Récupérer le nom de la feuille 1 d'un fichier externe ouvert dans la procédure
Réponses
5
Affichages
2 K
Fredox
Fredox
Fipat
  • Résolu(e)
XL 2019 Copie de feuille à feuille
Réponses
3
Affichages
602
Phil69970
Phil69970
P
  • Question Question
Microsoft 365 Copie de données d'une feuille vers une autre et retour à la ligne
Réponses
6
Affichages
2 K
Pat13127
P
elDucance↑
  • Résolu(e)
XL 2016 Macro : pour chaque cellules de chaque feuilles etc.
Réponses
8
Affichages
891
Nairolf
N
M
  • Question Question
XL 2016 Copier/coller de plusieurs cellules non contigües d'une feuille vers une ligne d'une autre feuille
Réponses
8
Affichages
3 K
Makovitch
M
D
  • Question Question
XL 2016 [RESOLU] Copie d'une zone selon contenu d'une cellule et mise a jour de certaines cellules de la zone et format date
Réponses
0
Affichages
1 K
dupuy.mathias
D
F
  • Résolu(e)
XL 2013 Recherche et Copie de lignes d'un classeur vers un autre
Réponses
10
Affichages
1 K
fgdfgg
F
Yoyo01000
  • Question Question
XL 2016 Insérer le contenu d'une ListBox dans cellules
Réponses
2
Affichages
1 K
Yoyo01000
Yoyo01000
D
  • Résolu(e)
XL 2019 Ventilation de données vers plusieurs feuilles à partir d'une feuille-source
2
Réponses
15
Affichages
5 K
DJISA
D
Retour