Discussion :

[Stanley1st]

Bonjour j'ai un problème avec le code suivant:

Code :

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

1
2
3
4
5
6
7
8
Sub branche()
Dim k, i As Long
For k = 4 To 33
For i = 2 To 30
Worksheets("BRAN").Cells(k, i + 2) = Worksheets(i).Cells(k + 2, 4) + Worksheets(i).Cells(k + 2, 8)
Next i
Next k
End Sub

J'ai un classeur contenant une feuille "BRAN" et d'autres dont les noms sont 1,2,....,29 et je veux sommer les valeurs de certaines cellules des feuilles 1,2,....,29 et les déverser dans des cellules de la feuille "BRAN" mais VBA m'affiche ERREUR INCOMPATIBILITE DE TYPE.
Merci de m'aider.

[a_diard]

J'ai crée un fichier avec les éléments fournis, je n'ai pas d'erreur

au moment ou ça plante vérifie les valeurs des variables, il y a peut étre

des données non numériques dans une de tes feuilles.


J'aurais eu tendance à utilise le nom des feuilles pour les feuilles 1 à 29

si des feuilles on été supprimées à un moment il es possible que l'une des feuilles recherchée n'existe pas.

des données non numériques dans une de tes feuilles.

Code :

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

1
2
3
4
5
6
7
8
Sub branche2()
Dim k, i As Long
For k = 4 To 33
For i = 1 To 29
Worksheets("BRAN").Cells(k, i + 2) = Worksheets(Format(i)).Cells(k + 2, 4) + Worksheets(Format(i)).Cells(k + 2, 8)
Next i
Next k
End Sub

Comme ceci je suis certain d'utiliser la bonne feuille.


Bonne soirée.

[riaolle]

Bonjour,
Avec Worksheets(i) tu récupères la feuille n° i et non pas la feuille dont le nom est i. Comme te le propose a_diard, il faudrait utiliser Worksheets(Format(i)) ou Worksheets("" & i & "")

[Menhir]

Petit détail, quand tu écris :

Code :

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

Dim k, i As Long

Seul i est déclaré de type Long.
k est déclaré de type Variant (tu peux le vérifier dans la fenêtre des variables locales).

La bonne syntaxe est :

Code :

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

Dim k As Long, i As Long

Pour ton problème, je pense comme les autres que tu ne pointes pas sur la bonne Worksheet en raison de l'ambiguïté numéro/nom.
Pour le vérifier, je te conseille de mettre juste après ton second For, la ligne suivante :

Code :

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

Debug.Print i;" > ";Worksheets(i).Name

De faire tourner ton programme en pas-à-pas et de regarder ce qui s'affiche dans la fenêtre d'exécution.

[pijaku]

Bonjour,

Petit test à réaliser, en compléments des excellentes réponses proposées :

Code :

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

1
2
3
4
5
6
Sub Test()
Dim i As Long
    For i = 2 To 30
        If Not IsNumeric(Worksheets(i).Name) Then MsgBox Worksheets(i).Name
    Next i
End Sub