Discussion :

[Mehdi8793]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[antonysansh]

RE Mehdi8793,

Ce code devrait régler ton probléme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[parmi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Mehdi8793]

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

[antonysansh]

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

[Invité]

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.

[Mehdi8793]

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


Cordialement