erreur sur une macro (VBA ) excel Résolu/Fermé

Question

Bonjour,
je cherche a trouver l'erreur présent sur ma macro :
'Si la date de fin de contrat ne correspond pas à l'année en cours
'Se mettre dans le fichier "mensuel"
Workbooks(Fichier).Activate
If Range("K11") > Range("K9") And InStr(1, CStr(Range("C7").Value) <> "613") And InStr(1, CStr(Range("D7").Value) <> "613") And InStr(1, CStr(Range("E7").Value) <> "613") Then
'Se mettre dans le fichier "Saisie" onglet "Tab 9-3 Marchés pluriannuels"
Workbooks("Saisie.xls").Sheets("Tab 9-3 Marchés pluriannuels").Activate
ligne = 7
While Not IsEmpty(Cells(ligne, 1))
ligne = ligne + 1
Wend
Workbooks("Saisie.xls").Sheets("Tab 9-3 Marchés pluriannuels").Cells(ligne, 1).Value = Range("H10").Value
Workbooks("Saisie.xls").Sheets("Tab 9-3 Marchés pluriannuels").Cells(ligne, 2).Value = Range("B5").Value
Workbooks("Saisie.xls").Sheets("Tab 9-3 Marchés pluriannuels").Cells(ligne, 3).Value = Range("B4").Value
Workbooks("Saisie.xls").Sheets("Tab 9-3 Marchés pluriannuels").Cells(ligne, 4).Value = Range("H9").Value
Workbooks("Saisie.xls").Sheets("Tab 9-3 Marchés pluriannuels").Cells(ligne, 6).Value = Range("H5").Value
Workbooks("Saisie.xls").Sheets("Tab 9-3 Marchés pluriannuels").Cells(ligne, 7).Value = Range("H6").Value
Workbooks("Saisie.xls").Sheets("Tab 9-3 Marchés pluriannuels").Cells(ligne, 8).Value = Range("").Value
Workbooks("Saisie.xls").Sheets("Tab 9-3 Marchés pluriannuels").Cells(ligne, 9).Value = Range("").Value
Workbooks("Saisie.xls").Sheets("Tab 9-3 Marchés pluriannuels").Cells(ligne, 10).Value = Range("").Value
Workbooks("Saisie.xls").Sheets("Tab 9-3 Marchés pluriannuels").Cells(ligne, 11).Value = Range("H59").Value
Workbooks("Saisie.xls").Sheets("Tab 9-3 Marchés pluriannuels").Cells(ligne, 12).Value = Range("H60").Value
'Insérer une ligne dans le tableau "Tab récup données" fichier "Saisie"
Worksheets("Tab 9-3 Marchés pluriannuels").Rows(8).Insert Shift:=xlShiftDown
End If

svp si quelqu'un si connais je serai contante qu'il puisse m'aider
merci d'avance

pilas31 · Accepted Answer

Bonjour à tous,

A première vue c'est ce test qui n'est pas bon :

InStr(1, CStr(Range("C7").Value) <> "613")

Ecrire plutôt :

InStr(1, CStr(Range("C7").Value), "613") <> 0 idem pour D7 et E7

ou bien InStr(1, CStr(Range("C7").Value), "613") = 0 selon si l'on souhaite que la chaine contienne ou non "613"

A+
Cordialement,

chossette9 · Answer

Bonjour, 

quelle ligne te génère une erreur ? Quel est le message d'erreur renvoyé par VBA ?

Sans ces informations, il est difficile de te répondre correctement.

Cordialement.

pilas31 · Answer

Re bonjour,

Je répond à la dernière question.
Pour éliminer les lignes dans lesquelles la valeur C7 exsite déjà voila ma proposition :
à inserer avant le ENDIF

......
'Insérer une ligne dans le tableau "Tab récup données" fichier "Saisie"
Worksheets("Tab récup données").Rows(2).Insert Shift:=xlShiftDown

' supprimer les doublons :

For ilig = i - 1 To 2 Step -1
    If Workbooks("Saisie.xls").Sheets("Tab récup données").Cells(ilig, 1).Value = Range("C7").Value _
    Or Workbooks("Saisie.xls").Sheets("Tab récup données").Cells(ilig, 2).Value = Range("C7").Value Then
        Workbooks("Saisie.xls").Sheets("Tab récup données").Rows(ilig).Delete Shift:=xlUp
    End If
Next ilig

Endif




Le principe est de reparcourir (à l'envers) toutes les lignes du tableau depuis i-1 jusquen haut et de tester si la valeur dans C7 existe déjà. 

Il faut vérifier si le tableau s'arrète bien en ligne 2 et si les test sont bien cela

A+

Erreur sur une macro (VBA ) excel

3 réponses

Discussions similaires