Autres (RESOLU) Erreur d'exécution '9

[chaelie2015]

Bonsoir Forum
J'ai créé ce petit code :

Private Sub CommandButton1_Click()
If Range("R4") = "" Or Range("R6") = "" Or Range("R8") = "" Then
    MsgBox ("Il manque des informations...!")
   
    If Range("R4") = "" Then
    Range("R4").Interior.ColorIndex = 6
    Else
    Range("R4").Interior.ColorIndex = 0
    End If
   
    If Range("R6") = "" Then
    Range("R6").Interior.ColorIndex = 6
    Else
    Range("R6").Interior.ColorIndex = 0
    End If
   
    If Range("R8") = "" Then
    Range("R8").Interior.ColorIndex = 6
    Else
    Range("R8").Interior.ColorIndex = 0
    End If

Else
    Range("R4").Interior.ColorIndex = 0
    Range("R6").Interior.ColorIndex = 0
    Range("R8").Interior.ColorIndex = 0

If Sheets("GDC 2022").Range("A7") = "" Then
   Sheets("GDC 2022").Range("A7") = Now()
Else
   ListObjects(1).ListRows.Add.Range(1, 1).Value = Now() '<----  Erreur d'exécution '9' a ce niveau
End If
 
 End If
End Sub

Quand j'exécute mon programme, j'obtiens: "Erreur d'exécution '9' L'indice n'appartient pas à la selection."
NB: Ce code est dans la feuille nommée "Menu"
A+

 

[Dranreb]

Bonsoir.
La collection ListObjects de la feuille assumée doit être vide.

 

[chaelie2015]

Bonsoir.
La collection ListObjects de la feuille assumée doit être vide.

Bonsoir Bernard
est ce que je peux avoir plus des détails ?
merci

 

[Wayki]

Bonsoir,
Vu qu'on a pas de fichier, essayez de remplacer listobjects(1) par listobjects("nom_tableau")
A +

 

[Dranreb]

Dans la mesure où il n'y a aucun ListObject dans la feuille assumée vu que non précisée, que voudriez vous savoir de plus ?

 

[job75]

Bonsoir chaelie2015,

Range(1, 1) n'a aucun sens, utilisez l'instruction :

ListObjects(1).ListRows.Add.Range.Cells(1) = Now

qui entre la date et l'heure dans la 1ère cellule de la ligne ajoutée.

Edit : bonsoir Wayki, Bernard, pas rafraîchi.

A+

 

[Dranreb]

Normalement avec .Range(1, 1), il devrait assumer .Range.Cells(1, 1)

 

[chaelie2015]

Bonsoir tout le monde
Désolé pour ce retard, ci joint le fichier teste.
Merci par avance.

 

[Dranreb]

Il n'y a aucun tableau dans le classeur joint, par conséquent effectivement les collections ListObjects de toutes les feuilles sont vide et n'ont donc pas d'élément 1.

 

[chaelie2015]

Il n'y a aucun tableau dans le classeur joint, par conséquent effectivement les collections ListObjects de toutes les feuilles sont vide et n'ont donc pas d'élément 1.

Re
tableau dans la feuille "GDC 2022"

 

[Dranreb]

Non, plage ordinaire n'ayant pas fait l'objet d'une mise sous forme de tableau.
De plus cette feuille n'est même pas précisée dans l'instruction qui plantera pareil parce qu'il n'y en a pas dans la feuille représentée par l'objet Workshet dans le module duquel est écrit le code.

 

[job75]

Puisqu'il n'y a pas de tableau structuré remplacez l'instruction erronée par :

Sheets("GDC 2022").Range("A" & Rows.Count).End(xlUp)(2) = Now

Et mettez la colonne A au format Date/heure que vous voulez..

 

[chaelie2015]

Puisqu'il n'y a pas de tableau structuré remplacez l'instruction erronée par :

Sheets("GDC 2022").Range("A" & Rows.Count).End(xlUp)(2) = Now

Et mettez la colonne A au format Date/heure que vous voulez..

Re
c'est parfait , ça marche; je souhaite remplacer la date par un numéro (dans la colonne A) qui s'incrémente automatiquement au lieu une date ?

If Sheets("GDC 2022").Range("A7") = "" Then
   Sheets("GDC 2022").Range("A7") = Now()
Else
   Sheets("GDC 2022").Range("A" & Rows.Count).End(xlUp)(2) = Now
End If

 

[job75]

Depuis le temps que vous êtes sur le forum vous avez forcément dû voir ça :

With Sheets("GDC 2022")
    .Range("A" & .Rows.Count).End(xlUp)(2) = Application.Max(.Range("A7:A" & .Rows.Count)) + 1
End With

Bonne nuit.

 

[chaelie2015]

Depuis le temps que vous êtes sur le forum vous avez forcément dû voir ça :

With Sheets("GDC 2022")
    .Range("A" & .Rows.Count).End(xlUp)(2) = Application.Max(.Range("A7:A" & .Rows.Count)) + 1
End With

Bonne nuit.

RE
Merci JOB et désolé.
Souci résolu
Bonne nuit.