[VBA-E] Excel et le remplissage de cellules

Version imprimable

12/01/2007, 18h22
amand81

[VBA-E] Excel et le remplissage de cellules

Bonjour,

Voilà longtemps que j'ai fait du VBA et j'aurais besoin d'aide.

Je souhaiterais savoir s'il existe quelquechose d'automatique pour faire :

Exemples :
dans la case A1, j'ai 9 et dans B1, j'ai 5 et dans la case C1, je souhaiterais qu'il y ait 11111
dans la case A2, j'ai X et dans B2, j'ai 3 et dans la case C2, je souhaiterais qu'il y ait xxx

C'est à dire que dans la première colonne, j'ai le type de la colonne C (9:numérique et X:caractère) et dans la colonne B, j'ai le nombre de caractère que doit contenir la colonne C. Je précise que c'est sur plus de 500 lignes, sinon je ne chercherais pas quelque chose pour me simplifier la vie.

Merci à tout ceux qui pourroont m'apporter leur aide.

Voici une première ébauche que j'ai trouvé mais je ne sais pas trop comment l'appliquer à une plage

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub remplissage()
Range("C1").Value = ""
For ind = 1 To Range("B1").Value
  If Range("A1").Value = "9" Then
    Range("C1").Value = "1" + Range("C1").Text
 
  End If
  If Range("A1").Value = "X" Then
    Range("C1").Value = "x" + Range("C1").Value
  End If
  Next ind
 
 
End Sub

Merci

Salut,

voici une autre procédure que je te propose, je viens de la tester :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Remplissage()
    Dim ValColA     As String
    Dim Result      As String
    Dim i           As Integer
    Dim NbCaract    As Long
 
For i = 1 To Range("A1").End(xlDown).Row
    ValColA = Cells(i, 1).Text
    If IsNumeric(ValColA) Then
        NbCaract = Cells(i, 2).Value
        Result = Space(NbCaract): Result = Replace(Result, " ", "1")
        Cells(i, 3).Value = Result         ' là c'est sous forme de nombre
        'Cells(i, 3).Value = "'" & Result  ' et ici sous forme de texte
    Else
        NbCaract = Cells(i, 2).Value
        Result = Space(NbCaract): Result = Replace(Result, " ", CStr(ValColA))
        Cells(i, 3).Value = Result
    End If
Next i
End Sub

Si c'est pas vraiment ce que tu souhaites, n'hésite pas à donner des détails.
@++

13/01/2007, 10h39
amand81

Merci.

Je crois que ça répond à ma question. Je testerais plus tard.
Merci beaucoup.