Bonjour à tous,

j'ai besoin de votre aide, je veux copier le résultat de ma variable Cell1 vers la cellule de la colonne de droite de A vers B,
je me casse les dents sur ce dernier point.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Sub test()
'
' test Macro
 
    Columns("B:B").Select
    Selection.NumberFormat = "@"
    ' je passe ma colonne B en format texte pour conserver les "0"
 
    Dim Cell0 As Variant
    Dim Cell1 As Variant
    Dim mystring As String
    Dim Nbcar As Byte
    Dim ligne As Variant
 
 
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    'je selectionne l'ensemble des éléments à traiter
 
    For Each Cell0 In Selection
        ligne = ActiveCell.Row
        'je recupère le numéro de ma ligne
        Nbcar = Len(Cell0)
        'je recupère le nombre de caractère de ma cellule
        MsgBox (Nbcar)
        mystring = String((9 - Nbcar), "0")
        'je trouve le nombre d'occurence à concatener
        MsgBox (mystring)
        Cell1 = mystring & Cell0
        ' et j'assemble le tout sous une nouvelle variable
        MsgBox (Cell1)
       ActiveSheet.Range("B", ligne) = Cell1
       ' je veux afficher mon résultat sur la colonne B !!!!
    Next Cell0
 
End Sub
Merci d'avance.
Donq64