Erreur d'exécution 91: Variable objet ou variable de bloc With non définie.

Bonjour,

suite à une aide afin de faire cette macro( ce matin sur le forum), j'ai voulu intégrer des éléments supplémentaires. J'ai le message d'erreur 91. Mon progrtame s'arrete sur la ligne

Code:

---

col = Rows("4:4").Find(What:="12 mois glissants finissant en").column

---

Tout fonctionnait très bien avant...


Voici le code en intégrale :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

Sub ajout_colonne_TD_CD_TP()     Dim col As Integer Dim Cancel As Boolean Dim x As String       'Dim derligne As Integer   'derligne = Range("A" & Rows.Count).End(xlUp).Row ' on va chercher la derniere ligne utilisée de la colonne A sur l'instance en paramètre.     col = Rows("4:4").Find(What:="12 mois glissants finissant en").column   If MsgBox("Voulez-vous ajouter une colonne supplémentaire?", vbQuestion + vbYesNo) <> vbYes Then Cancel = True   Else columns(col).Select Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove   Cells(1, col).Value = col End If   x = InputBox("Veuillez ajouter une date svp.") 'Cells(col & 3).Select   Cells(3 & col).Value = x 'Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Range(col, 3).ActiveCell.FormulaR1C1 = x       End Sub

---

Je voulais ajouter une date dans la 3 eme ligne après la demande de l'inputbox et c'est en essayant tout ca que j'ai eu ce message.
Du coup il m'est impossible de continuer et je ne comprends pas cette erreur.

Je vous remercie d'avance pour me donner de votre temps,


Cordialement

RE Mehdi8793,

Ce code devrait régler ton probléme :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub ajout_colonne_TD_CD_TP()   Dim col As Integer Dim Cancel As Boolean Dim x As String   col = ThisWorkbook.Sheets("Feuil1").Rows("4:4").Find(What:="12 mois glissants finissant en").Column - 1   If MsgBox("Voulez-vous ajouter une colonne supplémentaire?", vbQuestion + vbYesNo) <> vbYes Then Cancel = True Else Columns(col).Insert Shift:=xlToRight Cells(1, col).Value = col End If   x = InputBox("Veuillez ajouter une date svp.")   ThisWorkbook.Sheets("Feuil1").Cells(3, col).Value = x   End Sub

---

Antony

Bonjour,

Essaie comme ceci
J'ai mis xlPart si le texte peut comprendre plus mots. Ça pourrait être xlWhole si le texte contient exactement ce que tu as mis entre guillemets.

Code:

---

1 2 3 4 5 6 7 8

Dim Rng as Range Set Rng = Rows(4).Find("12 mois glissants finissant en", LookIn:=xlValues, LookAt:=xlPart) If not Rng Is Nothing Then col = Rng.Column Else MsgBox "Non trouvé" Exit Sub end If

---

Merci antony cela fonctionne, merci parmi pour ce petit test qui m'aide aussi. Mon probème est résolu j'ai adapté. Vous savez d'ou cela venait? Pourquoi as-tu rajouté ThisWorkbook.Sheets?


Cordialement et encore merci

Il est important et plus clair pour ta relecture et celle des autres qui veulent t'aider de préciser d'ou viennent tes objets. Pour un objet plage de cellule (Range), elle se trouve sur une feuille (sheet) et dans un classeur, ici celui actif (ThisWorkbook).

Antony

Salut,

Il faudrait combiner l'apport de parmi et de antonysansh pour bien faire.
Préciser les Parents du Range te permet de ne pas dépendre de la feuille active et du classeur actif, et aussi, vérifier que la fonction Find renvoi bien autre chose que Nothing est important d'où le code de parmi qui sépare le .Column de la fonction Range sur 2 lignes séparées.


--------------
EDIT:
Nota: Si le code est dans un module object Feuil par contre, il n'y a pas besoin de spécifier le parent de Rows.

Merci pour toute ces réponse je vois plus claire maintenant.


Cordialement