XL 2016 Pb de macros

Dimitri13 · 14 Février 2024

bonjour ,dans le cadre pro, je souhaite mettre en place un planning dynamique qui attribue certains critères comme référence, une zone de chargement , une personne etc .
j'ai suivi un tuto qui pourrait me convenir et modifier quelques critères sauf que la macros ne fonctionne pas . qui peut m'aider sur cette erreur.
Merci par avance

sylvanu · 14 Février 2024

Bonjour Dimitri,
Essayez avec :

VB:

Dim feuille As Worksheet

Worksheet sans "s".

Vous pouvez aussi simplifier l'écriture avec :

VB:

Dim ligne As Byte, colonne As Byte, feuille As Worksheet, ligne_ext As Integer, trouve As Boolean

Dimitri13 · 14 Février 2024

Toujours pas

Dimitri13 · 14 Février 2024

Dimitri13 à dit:
Toujours pas
Regarde la pièce jointe 1190735

Franc58 · 14 Février 2024

Dimitri13 à dit:
Toujours pas
Regarde la pièce jointe 1190735

Salut, pourquoi déclarer ligne et colonne 2 fois ?

Phil69970 · 14 Février 2024

Bonjour à tous

@Dimitri13
Je vois 2 Pb dans cette ligne

Dim ligne As Byte

1) "Ligne" est un mot réservé à excel et il n'est jamais recommandé d'utiliser des mots réservés pour tes variables
==> Remplace "ligne" par "Lig" par exemple

2) Et Byte est limité à 255

donc au dela tu auras un message de dépassement de capacité !
Comme c'est des lignes déclare ta variable en Long

Dim Lig as Long

3) Tu auras le même PB pour

Dim colonne As Byte

Et comme ta feuille fait plus de 255 colonnes ==> plantage !!!
Pour les colonnes déclare en integer ....

Bonne lecture

Franc58 · 14 Février 2024

Phil69970 à dit:
Bonjour à tous

@Dimitri13
Je vois 2 Pb dans cette ligne

1) "Ligne" est un mot réservé à excel et il n'est jamais recommandé d'utiliser des mots réservés pour tes variables
==> Remplace "ligne" par "Lig" par exemple

2) Et Byte est limité à 255

Regarde la pièce jointe 1190738
donc au dela tu auras un message de dépassement de capacité !
Comme c'est des lignes déclare ta variable en Long

3) Tu auras le même PB pour

Et comme ta feuille fait plus de 255 colonnes ==> plantage !!!
Pour les colonnes déclare en integer ....

Bonne lecture

Salut, en vba, ligne et colonne ne sont pas des mots réservés, le compilateur les accepte sans problème.

Phil69970 · 14 Février 2024

@Franc58

J'ai juste dit que ligne est un mot réservé à excel et qu'il n'est jamais recommandé d'utiliser des mots réservés pour les variables et perso j'évite les mots réservés à excel pour mes variables même si excel et VBA les acceptent.

D'ailleurs si tu écris ceci

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sheets As Long: Dim colonne As Byte
Sheets = Target.Row: colonne = Target.Column
If (Sheets = 5 And (colonne = 3 Or colonne = 5 Or colonne = 7)) Then
recup_zone
End If

End Sub

ou

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Sheet As Long: Dim colonne As Byte
Sheet = Target.Row: colonne = Target.Column
If (Sheet = 5 And (colonne = 3 Or colonne = 5 Or colonne = 7)) Then
recup_zone
End If

End Sub

VBA ne dit rien

Franc58 · 14 Février 2024

Phil69970 à dit:
@Franc58

J'ai juste dit que ligne est un mot réservé à excel et qu'il n'est jamais recommandé d'utiliser des mots réservés pour les variables et perso j'évite les mots réservés à excel pour mes variables même si excel et VBA les acceptent.

D'ailleurs si tu écris ceci

ou

VBA ne dit rien

Ce n'est pas tout à fait la même chose. Sheet n'est pas un type de variable, il fait référence à un objet, donc ce n'est pas un mot réservé et le compilateur l'accepte sans erreur. Par contre si tu essaies Dim date as Long ou Dim byte as String par exemple, ça ne passera pas, tu auras une erreur de syntaxe parce que ce sont des types de variables et donc des mots réservés.

Dimitri13 · 14 Février 2024

Bonjour j'ai modifié ligne par lig et voici une nouvelle erreur

sylvanu · 14 Février 2024

Et ça marche avec "Dim feuille as Worksghheets" au pluriel ?

Franc58 · 14 Février 2024

Dimitri13 à dit:
Bonjour j'ai modifié ligne par lig et voici une nouvelle erreur Regarde la pièce jointe 1190745

Salut, j'ai chargé ton classeur et quand je déclare Dim feuille as Worksheet, sans s, comme signalé par sylvanu, ça fonctionne sans erreur. Il ne faut pas confondre Worksheets, avec s, qui est la collection de feuilles, et worksheet qui est la feuille.

Dimitri13 · 14 Février 2024

C'est fait maintenant j'ai ca , je comprends rien ...c'est dur les macros

Phil69970 · 14 Février 2024

Franc58 à dit:
Ce n'est pas tout à fait la même chose. Sheet n'est pas un type de variable, il fait référence à un objet, donc ce n'est pas un mot réservé et le compilateur l'accepte sans erreur.

Tout à fait d'accord mais si tu fait ce test

VB:

Sub Test1()
Dim Sheets As Long

Sheets = 2024
If Sheets = 2024 Then MsgBox "Coucou"

Test2
End Sub

Sub Test2()
Dim NomFeuille

NomFeuille = Sheets(1).Name
MsgBox NomFeuille

Test3
End Sub

Sub Test3() 'Provoque une erreur

Dim NomFeuille ', Sheets As Long

Sheets = 2024     'Erreur ici si variable non déclarée
If Sheets = 2024 Then MsgBox "Coucou"

NomFeuille = Sheets(1).Name  'Ou erreur ici si variable est déclarée
MsgBox NomFeuille

End Sub

Même si ce n'est pas des mots interdits pour VBA le mélange des genres peux provoquer une erreur si on n'y fait pas attention.
Le plus simple est encore de préfixer les variables......

Par exemple on peut s'inspirer de ceci :
==> https://argyronet.developpez.com/office/vba/convention/

Franc58 · 14 Février 2024

Phil69970 à dit:
Tout à fait d'accord mais si tu fait ce test

VB:

Sub Test1() Dim Sheets As Long Sheets = 2024 If Sheets = 2024 Then MsgBox "Coucou" Test2 End Sub Sub Test2() Dim NomFeuille NomFeuille = Sheets(1).Name MsgBox NomFeuille Test3 End Sub Sub Test3() 'Provoque une erreur Dim NomFeuille ', Sheets As Long Sheets = 2024 'Erreur ici si variable non déclarée If Sheets = 2024 Then MsgBox "Coucou" NomFeuille = Sheets(1).Name 'Ou erreur ici si variable est déclarée MsgBox NomFeuille End Sub

Même si ce n'est pas des mots interdits pour VBA le mélange des genres peux provoquer une erreur si on n'y fait pas attention.
Le plus simple est encore de préfixer les variables......

Par exemple on peut s'inspirer de ceci :
==> https://argyronet.developpez.com/office/vba/convention/

On est bien d'accord que même si c'est pas des mots réservés, il vaut mieux éviter les confusions.

XL 2016 Pb de macros

Dimitri13

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Dimitri13

XLDnaute Nouveau

Dimitri13

XLDnaute Nouveau

Franc58

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

Franc58

XLDnaute Occasionnel

Phil69970

XLDnaute Barbatruc

Franc58

XLDnaute Occasionnel

Dimitri13

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Franc58

XLDnaute Occasionnel

Dimitri13

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Franc58

XLDnaute Occasionnel

Discussions similaires