Discussion :

[hugerma]

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 :

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

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 :

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
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

[Philippe Tulliez]

Bonjour,

Range("A" & X & ":B" & X + Cellule - 1).Select 'le Problème est ici

Mis à part l'utilisation de la méthode Select et de l'objet Selection qui sont parfaitement inutiles et ralentissent l'exécution du programme, n'auriez-vous pas dans l'une des cellules concernées une valeur supérieure à 32767 ou inférieure à 32768 ?

[hugerma]

Non je ne pense pas; voila mes valeurs

[hugerma]

J'ai trouvé mon problème..
L'erreur du début/fatigue

Je cherchais à additionner la Cellule "C2" qui à pour valeur "Active"...