[VBA]Copier le contenu d'une cellule x fois selon x

**fixou** · 19/04/2007, 05h24

Bonjour,

je n'arrive pas à trouver comment faire ceci:

dans une colonne AA, j'ai des cellules avec des chiffres: 1, 2, 3, 4 etc...
dans une colonne AL, j'ai des cellules avec du texte (chaines de caractères): FT Nice/06246702-NICE RIQUIER/Etage 2/BUR13 etc...

J'aimerai copier le contenu de la cellule AL4 dans la colonne AP x fois selon le nombre contenu dans la cellule AA4.
Ex.:
AA4 = 3 et AL4 = FT Nice/06246702-NICE RIQUIER/Etage 2/BUR13

le résultat doit etre:
AP4 = FT Nice/06246702-NICE RIQUIER/Etage 2/BUR13
AP5 = FT Nice/06246702-NICE RIQUIER/Etage 2/BUR13
AP6 = FT Nice/06246702-NICE RIQUIER/Etage 2/BUR13

et ainsi de suite pour les autres lignes....
Si AA5 = 2 et AL5 = FT Nice/06246702-NICE RIQUIER/Etage 2/BUR14

il me faut:
AP7 = FT Nice/06246702-NICE RIQUIER/Etage 2/BUR14
AP8 = FT Nice/06246702-NICE RIQUIER/Etage 2/BUR14
etc...

J'espère avoir été assez clair....

Je dois le faire pour plus de 2800 lignes alors si il existe une solution, ca me ferait gagner beaucoup de temps...

Merci.

Invité · 19/04/2007, 09h20

Avec une macro peut etre ?

mais il faut la coder sous VBa

**Michel_M** · 19/04/2007, 09h48

Bonjour,

Ci dessous macro proposée; j'ai considéré que tu commencais en ligne 1

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
Sub copier_AP()
Dim cptrA As Integer, derlig As Integer, cptrB As Integer, lig As Integer
 
Application.screenupdating= false
'dernière ligne occcupée AL
derlig = Range("AL3000").End(xlUp).Row
 
'boucle générale début en ligne1 (à adapter)
For cptrA = 1 To derlig
'dernière ligne occcupée AP
lig = Range("AP3000").End(xlUp).Row
    'valeur colonne AA
    nbre = Cells(cptrA, 27)
    For cptrB = 1 To nbre
        Cells(lig + cptrB, 42) = Cells(cptrA, 38)
    Next
Next
 
Application.screenupdating= true
End Sub

En espérant que...
Michel

**fixou** · 19/04/2007, 15h23

Bonjour Michel,

merci du coup de main seulement il y a une erreur dans ta macro à cette endroit:

For cptrB = 1 To nbre

"incompatibilité de type" ....

Je n'y connais pas grand chose en programmation mais "nbre" n'a pas été défini en début de programme, je l'ai donc défini en "integer" et le problème s'est déplacé à un autre niveau:

nbre = Cells(cptrA, 27)

"incompatibilité de type" ...

**tonton fred** · 19/04/2007, 16h25

Bonjour fixou,

nbre est un integer et Cells(cptrA, 27) est un quelque chose qui depend de l'humeur d'excel (souvent variant, parfois string ou double). D'ou ton probleme.

Tu peux faire nbre = CInt(Cells(cptrA, 27).Value)

Cela force la conversion en Integer. Si les valeurs depassent 32000 il faut utiliser un type Long (qui veut dire Long Integer) et convertir avec CLng().

**fixou** · 19/04/2007, 16h54

Tout simplement génial...
Merci à tous pour votre aide.

**Michel_M** · 19/04/2007, 16h57

Re, bonjour tonton Fred

Chez moi cela marchait

Est tu sûr que dans la colonne AA tu as des "vrais" nombres et non des textes (dans la barre des formules, regarde si le nombre n'est pas précédé d'une apostrophe) ?
Cela arrive souvent lorsque ces données numériques sont importées du web ou d'une base de données....

Tenez moi au courant, d'avance merci

Michel