Discussion :

[dado91400]

bonjour à tous,

il me semble qu'il y ait dans mon code une erreure de syntax.

qu'en pensez-vous?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub test()
 
Dim i As Integer
 
For i = 0 To i = 10
 
ActiveSheet.Range("B2").Offset(i, 0).Value = Range("C2").Offset(i, 0).Value & " " & Range("D2").Offset(i, 0).Value & " " & Range("E2").Offset(i, 0).Value
 
Next i
 
End Sub

merci,

[Pierre Fauconnier]

Bonjour

Je ne vois pas d'erreur de syntaxe et ton code fonctionne sans erreurs...

Si erreur il y a, c'est dans la transcription en VBA de ce que tu souhaites réaliser... => exprime en français ce que tu souhaites obtenir et nous pourrons probablement t'aider...

[dado91400]

salut,

je souhaite mettre le contenu de 3 cases dans une seule.

j'incrémente ensuite d la ligne 2 à la ligne 10.

j'ai donc :

[B2] = [C2] + [D2] + [E2]
.
.
.
.
[B11] = [C11] + [D11] + [E11]

merci,

[fred65200]

bonjour,
une solution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    With Range("B2")
    .FormulaR1C1 = "=RC[1]&"" ""&RC[2]&"" ""&RC[3]"
    .AutoFill Destination:=Range("B2:B11")
    End With

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
    With Range("B2")
    .FormulaR1C1 = "=RC[1]+RC[2]+RC[3]"
    .AutoFill Destination:=Range("B2:B11")
    End With

cordialement

[Pierre Fauconnier]

Personnellement, j'utilise rarement Offset, je préfère décaler directement. Attention, les indices ne commencent pas à 0 dans ce cas.

De plus, pour rendre la lecture du code plus aisée, je préfère travailler avec un objet Range

Voici le code que j'utiliserais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For i = 1 To 11
    Set Cellule = Range("b2")(i)
    Cellule.Value = Cellule(i, 2).Value & " " & Cellule(i, 3).Value & " " & Cellule(i, 4).Value
Next i

[EDIT] modification du code pour intégrer le i dans les décalages implicites[/EDIT]

Attention que le code de Fred place une formule dans les cellules, ce qui n'est peut-être pas le résultat souhaité.

[dado91400]

Merci à vous deux.

intérressant de voir les deux méthodes!