Problème Incompatibilité de type
Bonjour/bonsoir
Pour mettre dans le contexte je débute en VBA (j'ai commencé aujourd'hui)
Je cherche à récupérer la valeur d'une cellule pour l'additionner à une variable.
Au moment d'additionner ma variable Cellule :
Code:
Range("A" & X & ":B" & X + Cellule - 1).Select 'le Problème est ici incompatibilité de type
j'ai un message d'erreur incompatibilité de type.
Je comprends mon problème et je m'y attendais car je veux additionner un Integer et un Range, mais je ne vois pas comment récupérer la valeur de ma cellule en Integer pour après l'additionner.
Merci d'avance pour votre aide
Ci-dessous mon code :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Sub Macro11()
Dim I As Integer
Dim X As Integer
Dim Cellule As Range
X = 2
For I = 1 To 9
Sheets("Feuil2").Select
Set Cellule = Range("C2")
Range("A" & I + 1 & ":B" & I + 1).Select
Selection.Copy
Sheets("Feuil1").Select
Range("A" & X & ":B" & X + Cellule - 1).Select 'le Problème est ici incompatibilité de type
ActiveSheet.Paste
X = X + Cellule 'et probablement ici aussi
Next I
End Sub |
