A voir également:
- Problème Erreur d'exécution '424'
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- J'aime par erreur facebook notification - Forum Facebook
- Java code erreur 1603 ✓ - Forum Windows
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
4 réponses
Bonjour,
b n'est pas c.
Dim c As Worksheet
Set c = Worksheets("Sheet1")
res = b.Cells(5, 5) - b.Cells(6, 6) - b.Cells(7, 7)
b n'est pas c.
Dim c As Worksheet
Set c = Worksheets("Sheet1")
res = b.Cells(5, 5) - b.Cells(6, 6) - b.Cells(7, 7)
Bonjour,
La feuille se nomme vraiment "Sheet1", ou "Feuil1", ou autres
De plus tu lui attribue la variable c qui ne sert pas dans ton exemple, puisque tu te sert d'une variable b qui elle n'est pas déclarée
La feuille se nomme vraiment "Sheet1", ou "Feuil1", ou autres
De plus tu lui attribue la variable c qui ne sert pas dans ton exemple, puisque tu te sert d'une variable b qui elle n'est pas déclarée
Re,
Sans rien voir, comment veux tu des réponses ?
As-tu modifié les "b" en "c"
Sans rien voir, comment veux tu des réponses ?
As-tu modifié les "b" en "c"
Oui j'ai modifié le b et c.
Voila le code pardon
Sub Test()
'définition des variables
Dim c As Worksheet
Dim res As Integer
'identifier la feuille
Set c = Worksheets("Sheet1")
res = c.Cells(5, 5) - c.Cells(6, 6) - c.Cells(7, 7)
MsgBox (res)
End Sub
Voila le code pardon
Sub Test()
'définition des variables
Dim c As Worksheet
Dim res As Integer
'identifier la feuille
Set c = Worksheets("Sheet1")
res = c.Cells(5, 5) - c.Cells(6, 6) - c.Cells(7, 7)
MsgBox (res)
End Sub
Erreur bête.
J'ai modifier mais maintenant il me met l'erreur '13'.
Que dois-je faire ?