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.
Merci d'avance.
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
Donq64
Partager