récupérer Valeur VBA

Version imprimable

30/04/2012, 11h52
étudiant49

récupérer Valeur VBA

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
30/04/2012, 12h07
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.

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:

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

Code:

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:

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

30/04/2012, 12h23
étudiant49

Tout a fait ce qu'il me fallait.

Merci