Discussion :

[barbeaua]

Bonjour, petit problème matinal,

J'incrémente un compteur avec les appuis sur un bouton, et en fonction j'effectue plusieurs actions (voir code ci-dessous)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim resultat As String
 
    resultat = InputBox("Code du site:")
 
    If resultat <> "" Then 'Si la valeur est differente de "" lance le process
    Sheets("Debours").Range("A55").Value = Sheets("Debours").Range("A55").Value + 1 'On incremente le compteur
    Sheets("Page Vierge").Copy after:=Sheets(Sheets.Count) 'On cree une nouvelle page en copiant la premiere pour la forme
    ActiveSheet.Name = resultat 'on renome cette feuille avec la valeur entree
    Sheets("Debours").Cells(1, 4 + Sheets("Debours").Range("A55").Value).FormulaLocal = resultat 'On affiche la valeur entrée dans une nouvelle colonne sur Debours
 
    Sheets("Debours").Cells(2, 4 + Sheets("Debours").Range("A55").Value) = WorksheetFunction.VLookup(Sheets("Debours").Cells(1, 4 + Sheets("Debours").Range("A55").Value).Value, Sheets("ListeIG").Range("A2:B2000"), 2) ' On va chercher dans la liste avec le code et on en ressort le nom du lieu

Si le compteur est à 0 tout fonctionne parfaitement mais à 1 j'ai une "erreur 1004" qui s'affiche concernant la dernière ligne avec le WorksheetFunction.VLookup.


Quelqu'un peut-il m'aider svp?

Merci d'avance,

Antoine

[barbeaua]

J'ai résolu mon problème en modifiant Sheets("Debours").Cells(1, 4 + Sheets("Debours").Range("A55").Value).Value par resultat.