Erreur dans code
Salut le forum,
j'ai ce code et cette erreur qui apparaît occasionnellement.
Comme je n'y comprends rien, j'ai donc recours à votre aide.
Voici le code (la ligne en rouge est la ligne qui cause problème) :
Private Sub BTNenreg_Click()
'Macro modifiée par Mytå pour Eric
'Forum Excel-pratique 05-Nov-2008
Dim ligne As Long
Dim PremCell As String
Dim Cell As Range
If TextBox1.Text = "" Then
Exit Sub
ElseIf TextBox2.Text = "" Then
Exit Sub
End If
Range("Entrées!B1") = Label4.Caption
Range("Entrées!B2") = Label2.Caption
Range("Entrées!B3") = Label3.Caption
Range("Entrées!B5") = TextBox1.Text
Range("Entrées!B6") = TextBox2.Text
With Sheets("Calendrier")
Set Cell = Cells.Find(Sheets("Entrées").[B4], LookIn:=xlValues, Lookat:=xlPart)
If Not Cell Is Nothing Then
PremCell = Cell.Address
Do
If Cell.Offset(0, -2) <> "-" Then Exit Do
Set Cell = Cells.FindNext(Cell)
Loop Until Cell.Address = PremCell
End If
ligne = Cell.Row
.Cells(ligne, 1) = Sheets("Entrées").Cells(1, 2).Value
.Cells(ligne, 2) = Sheets("Entrées").Cells(2, 2).Value
.Cells(ligne, 3) = "vs"
.Cells(ligne, 4) = Sheets("Entrées").Cells(3, 2).Value
.Cells(ligne, 5) = Sheets("Entrées").Cells(5, 2).Value
.Cells(ligne, 6) = "-"
.Cells(ligne, 7) = Sheets("Entrées").Cells(6, 2).Value
.Cells(ligne, 8) = Sheets("Entrées").Cells(4, 2).Value
.Cells(ligne, 9) = Sheets("Entrées").Cells(7, 2).Value
Columns.EntireColumn.AutoFit
End With
With Sheets("Entrées")
.Range("B1:B3").ClearContents
.Range("B5:B6").ClearContents
End With
Unload USFresultat
USFresultat.Show
End Sub
Et voici le message d'erreur :
Run-time error '91' :
Object variable or With Block variable not set
Merci pour votre aide.
Bonsoir, Eric
513 messages à ton actif sur ce forum
Un code "dans le vide"...... (il existe des balises "codes")
pas de fichier
une erreur.....
Pas de chance....
Fais un effort......
Bon courage
Ça se produit quand on va dans "Enregistrer un résultat".
Merci encore pour votre aide.
Voilà, j'ai corrigé le tir et j'ai modifié dans une version antérieure. Finalement, ça permet quand même de voir le bug.
Salut le forum
Il existe aussi le bouton éditer, au lieu de répondre
Tu aurais mis tous sur la même ficelle.
Les .Zip je déteste, car faut enregistrer et ensuite extraire.....
Mytå
P.S. C'est une raison, que plusieurs ficelles n'ont pas de retour de ma part... Désolé
Je veux bien ne pas zipper si tu as une solution pour que j'envois un fichier de 1003kb autrement.
Et je ne peux pas épurer puisque c'est un problème qui n'existait il y a peu. Pourtant, je n'ai pas travaillé sur cette zone depuis.
Bonjour,
Comme Myta le dit justement, évite de changer de ficelle sur un même sujet. Je vois cela très souvent sur le forum et cela ne permet pas d'avoir une vue globale dans les problèmes posés.
Cela est d'autant plus vrai lorsqu'il s'agit de codes VBA. Un changement dans le fichier peut avoir des répercutions ailleurs dans l'application et provoquer des bugs parce que l'utilisateur ne voit pas le fonctionnement global du code.
Pour ton souci, dans la macro proposée par Myta (là c'est bien que tu as laissé son nom dans ton code !) essaye en changeant la variable CELL par CEL.
Veille à la changer partout dans la macro, sinon rebug...
A te relire
Dan
Salut Dan,
pas sûr que l'on comprenne Mytå de la même façon toi et moi. Je crois qu'il parlait de mes deux messages successifs car il n'y a pas eu d'autres posts concernant ce bug.
Pour ce qui est de la correction, j'ai simplement ajouter un tiret dans la ligne 1 de la colonne où s'inscrivent les tirets car cette cellule était vide. Une intuition comme ça. Plus de bug du tout depuis.
Ça me semble un peu trop simple comme solution mais il est possible que ce problème venait de la lecture d'une combinaison de cellules dans le code dont celles incluant cette colonne avec le tiret.
Pour l'instant et jusqu'à preuve du contraire, qui n'arrivera pas je l'espère, ce problème est résolu.
Merci tout de même de l'attention apportée à ce post.