Bonjour,
je viens de me mettre au VBA il y'a tout juste une semaine.
J'ai un petit soucis avec les fonction Range et Cells

J'ai crée un code que chercher dans une colonne une valeur,

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
 
Sub test()
 
Dim numéro As Double
Dim celluletrouvee As Range
Dim ligne As Integer
Dim col2 As Integer
Dim col As Integer
 
numéro = Sheets("palier").Cells(3, 3)
 
Set celluletrouvee = Sheets("valeur d'étalonnage").Range("AI1:AI500").Find(numéro, lookat:=xlWhole)
 
If celluletrouvee Is Nothing Then
MsgBox ("la valeur indiquées n'ont pas été trouvé dans la liste: indiquer l'instant exact")
Else
ligne = celluletrouvee.Row
col = celluletrouvee.Column
MsgBox ("trouvé : ligne = " & numéro & " , colonne = " & col)
End If
jusque la, ça marche comme je le souhaite.
Mais j'ai besoin de copier une selection vers une autre feuille.
c'est là que j'ai un soucis
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
col2 = col + 1
 
Sheets("valeur d'étalonnage").Range(Cells(ligne, col2), Cells(ligne2, col2)).Copy Destination:=Sheets("palier").Range("D3")
End Sub
voila je comprend pas pourquoi
Cells(ligne, col).selec ça marche.
Range(Cells(ligne, col), Cells(ligne2, col)).Select ça ne marche pas, j'hesite à chaque fois sur les formats.

Merci
Alex