Copier une variable résultat vers une cellule d'une colonne adjacente.

Version imprimable

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:

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

03/02/2015, 17h07
deedolith

Code:

ActiveSheet.Range("B", ligne) = Cell1

Les arguments de l'objet Range sont soit des cellules, soit l'adresse de cellules.

si tu concatène "B" avec le numero de ligne, ca devrais mieux fonctionner.
03/02/2015, 20h35
clementmarcotte

Bonjour,

Ou bien on utilise l'objet Cells(ligne,Colonne).

Cells est essentiellement un objet Range adapté aux opérations avec des numéros de ligne et de colonne à la place des adresses.

Code:

ActiveSheet.cells( ligne,2).value = Cell1.value

Je sais bien que Value est la propriété par défaut, mais je me méfie des automatismes de VBA, ou même de VB. La seule chose dont je ne suis pas capable de me passer est le transcodage automatique. :pastaper: