Excel 2003 : Erreur 91

Question

Bonjour à tous!

Bon voila suite à mon autre post, j'ai créer ce code:

Private Sub CommandButton1_Click()
Dim CelD As Range
Dim CelF As Range
Dim CelC As Range
Set CelD = Cells.Find(Date, LookIn:=xlValues, lookat:=xlWhole)
Set CelF = CelD.Offset(ColumnOffset:=12)
Set CelC = CelD.Offset(RowsOffset:=1)
If Range(CelC).Value <> "" Then
Range(CelD, CelF).Select
Selection.Copy
CelD.Offset(RowOffset:=1).Activate
Selection.Insert
Range(CelD.Offset(RowOffset:=1), CelF.Offset(RowOffset:=1)).Select
Selection.ClearContents
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
MsgBox ("Mise à Jour : OK !")
Else
MsgBox ("Pas besoin !")
End If
End Sub

Et j'ai en retour l'erreur 91!

Etant nul, je sollicite votre aide!

Merci

ucfoutu · Answer

Bonjour,
- nous n'avons pas à chercher "ton autre post" pour savoir de quoi il s'agit ! Tu dois l'exposer clairement dans CETTE discussion (ou alors il fallait continuer l'autre).
- la moindre des choses est de signaler la ligne en erreur.


____________________
Vous aimez Codes-Sources ? Il vous aide ? Cliquez ici pour l'aider à continuer
Cliquer sur "Réponse acceptée"  en bas d'une solution adéquate est

Renfield · Answer

au pif 

Set CelD = Cells.Find(Date, LookIn:=xlValues, lookat:=xlWhole)

renvoie Nothing, car valeurs non trouvées...

du coup, quand tu tentes de t'en servir, erreur 91

Renfield - Admin CodeS-SourceS - MVP Visual Basic

bigfish_le vrai · Answer

Salut,

Complètement d'accord avec la remarque de Renfield ! 

Et d'ailleurs il y en aura d'autre des erreurs !

Note que les méthodes Select et Activate ainsi que la propriété Selection sont à proscrire autan que possible. Cela ralenti le code, et à tendance à rendre un aveugle épileptique...

donc :

Private Sub CommandButton1_Click()
    Dim CelD As Range
    Dim CelF As Range
    Dim CelC As Range
    Set CelD = Cells.Find(Date, LookIn:=xlValues, lookat:=xlWhole)
    'si find à échoué!
    If CelD Is Nothing Then Exit Sub
    Set CelF = CelD.Offset(0, 12)
    Set CelC = CelD.Offset(1, 0)
    If Not CelC.Value <> "" Then ' <-- celc est deja un objet range !!!
        Range(CelD, CelF).Copy
        CelD.Offset(1,0).Insert
        With Range(CelD.Offset(1,0), CelF.Offset(1,0))
            .ClearContents
            With .Borders '(xlEdgeLeft)
                .LineStyle = xlContinuous
                .Weight = xlMedium
            End With
            With .Borders(xlEdgeLeft)
                .Weight = xlThin
            End With
            With .Borders(xlInsideVertical)
                .LineStyle = xlContinuous
                .Weight = xlThin
            End With
        End With
        MsgBox ("Mise à Jour : OK !")
    Else
        MsgBox ("Pas besoin !")
    End If
End Sub

A+

toufous · Answer

Salut à tous!

Merci pour vos réponses!
Désolé de mon manque de justesse et de précision!

Merci Big fish, ta réponse et "L'aide de Excel" me permette d'apprendre!!!!

En effet, ceci est mon 1er code! Je ne suis pas novice, je suis IGNARE en la matière!!!

Je vais continuer de potasser tout ça et vous donnerais la suite de mes résultats!

Merci beaucoup

Excel 2003 : Erreur 91

4 réponses

Votre réponse

Discussions similaires