Discussion :

[étudiant49]

Bonjour je ne connais pas du tout le VBA mais j'ai remarqué que ca ressemblé au VB.

Je voudrais copier les valeurs d'une cellule dans une autre
Je ne vous demande pas de faire le travail à ma place mais juste de la traduction ^^

J'ai déjà fait l'algo du probleme mais je ne connais pas la syntaxe.

Var
valeur as string
i as integer

Pour i = 2 TO 176 faire
récupèrer la valeur de la cellule(i,A)
valeur = INSERT INTO maTable (champ) VALUES ('valeur de ma cellule')
Copier valeur dans la colonne B
Next

Merci pour votre aide

[Daniel.C]

Bonjour,

Je ne connais pas du tout VB et je n'ai pas compris ce que tu as écrit. Dis-nous ce que tu veux faire.

[Philippe Tulliez]

Bonjour,
Pour ce que j'en ai compris, tu cherches à copier le contenu de la colonne A de 2 à 176 vers la colonne B de 2 à 176
Voici deux propositions avec 2 syntaxes différentes.

Code :

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

1
2
3
4
5
6
7
8
9
Sub Prop1()
 Dim i As Integer
 For i = 2 To 176
  ' Syntaxe 1
  Cells(i, 2) = Cells(i, 1) '
  ' Syntaxe 2
  Range("B" & i) = Range("A" & i)
 Next i
End Sub

Ou

Code :

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

1
2
3
4
5
6
7
8
Sub Prop2()
 Dim i As Integer
 i = 176
 ' Syntaxe 1 
'Range("B2:B" & i).Value = Range("A2:A" & i).Value
 ' Syntaxe 2
 Range(Cells(2, 2), Cells(i, 2)).Value = Range(Cells(2, 1), Cells(i, 1)).Value
End Sub

Il est plus sage de préciser le nom du classeur et le nom de la feuille

Code :

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

1
2
3
4
5
6
7
 Dim sht As Worksheet
 Set sht = ThisWorkbook.Worksheets("Feuil1")
 Dim i As Integer
 i = 176
 With sht
 .Range(.Cells(2, 2), .Cells(i, 2)).Value = .Range(.Cells(2, 1), .Cells(i, 1)).Value
 End With

[étudiant49]

Tout a fait ce qu'il me fallait.

Merci