Discussion :

[thespeedy20]

Bonjour,

j'ai un transfert de données d'une feuille données vers une feuille avis.
ex :
A2 et B3 de la feuilles données vers A23 de la feuilles avis
A3 et B4 de la feuilles données vers A26 de la feuilles avis
A4 et B4 de la feuilles données vers A29 de la feuilles avis
etc....pour les dix premières données

Idem pour la date de naissance et le montant...

Ne connaissant rien en vba, pourriez-vous m'aider.

Merci d'avance

Oli

[Pierre Fauconnier]

Bonjour,

Sans rien y connaître en VBA, ca va être dur, et je te conseille de regarder et de travailler certains tutos sur le sujet avant de te lancer.

D'une façon générale, voici la marche à suivre:

• Nommer des variables de type range (plages de cellule)
• Transférer les valeurs d'une plage à l'autre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Transfert()
  Dim CelSource As Range
  Dim CelCible As Range
 
  Set CelSource = Worksheets("données").Range("a2")
  Set CelCible = Worksheets("avis").Range("a23")
 
  Do While Not IsEmpty(CelSource)
    CelCible.Value = CelSource.Value & CelSource(2, 2).Value
    Set CelSource = CelSource(2)
    Set CelCible = CelCible(4)
  Loop
End Sub

Ce code:

• initialise les cellules source(données!a2) et cible (avis!a23)
• boucle tant que la cellule cible n'est pas vide
• attribue à la cellule cible la valeur résultant de la concaténation des deux cellules constituant la source
• décale la cellule source d'une ligne vers le bas
• décale la cellule cible de 3 lignes vers le bas

[thespeedy20]

Bonjour,

Merci Pierre pour ce début d'explication, je vais essayer de trouver, juste petite question , comment je fais pour limiter le transfert à 10 lignes.

Merci

Olivier

[Pierre Fauconnier]

La boucle "Do while... Loop" veut dire "boucler tant que..."

Une boucle de ce type est utilisée lorsque tu ne connais pas le nombre de boucles à réaliser, mais que tu peux déterminer une condition qui arrêtera la boucle lorsqu'elle sera remplie.

Si tu connais le nombre de boucles à effectuer, tu peux utiliser une boucle
"For... Next" dans laquelle tu définis les bornes inférieures et supérieures d'une valeur qui sera incrémentée (décrémentée) d'une ou de plusieurs unités, selon le pas de progression.

Si le pas est de 1, tu n'as pas besoin de le préciser
Voici ce que cela pourrait donner (Seules les lignes Do while et Loop ont été modifiées en For... et Next)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Transfert()
  Dim CelSource As Range
  Dim CelCible As Range
  Dim Compteur As Integer
 
  Set CelSource = Worksheets("données").Range("a2")
  Set CelCible = Worksheets("avis").Range("a23")
 
  For Compteur = 1 To 10
    CelCible.Value = CelSource.Value & CelSource(2, 2).Value
    Set CelSource = CelSource(2)
    Set CelCible = CelCible(4)
  Next Compteur
End Sub

[thespeedy20]

re Pierre,

Petit soucis avec la concaténation, le prénom est en décalage d'une ligne par rapport au nom.!!!

Olivier

[Pierre Fauconnier]

Dans ton premier message, tu as dis

A2 et B3 de la feuilles données vers A23 de la feuilles avis

=> décalage...

Si pas de décalage

Code :

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

CelCible.Value = CelSource.Value & CelSource(1, 2).Value

(C'est plus "normal", ceci dit)