Bonjour

La "fonction" Call n'est pas en cause car tu ne lui passe aucun paramètre, ce que tu pourrais rajouter.

Si tu veux garder des valeurs dans des variables il faut que ce soit des variables générales définies pour le projet.
Toujours zen

Bonsoir gbinforme,

merci pour ta réponse, je suis actuellement bien bloqué, le pb c'est que je suis dans une boucle qui "balaye" toutes les cellules d'une colonne avec un for I= 1 to ....et lorsqu'il ya une cellule de vide, je veux par une fonction call, ouvrir un userform avec des cases à cocher pour forcer le choix de l'utilisateur et quand je reviens dans le programme principal je perd la valeur de I. En tout cas, un grand merci pour ton aide, je me pose la question de savoir si j'utilise une bonne démarche, peut être que je me complique inutilement ????

bonne soirée Gbinforme

aurelie76

Bonjour

quand je reviens dans le programme principal je perd la valeur de I.

Parce que ton I n'est pas correctement défini : il faut qu'il soit défini dans un module par exemple

Public I as Long

Rebonsoir Gbinforme,

je remet le bout de code : en fait ma variable est R , je "balaye"dans la feuille 1 toutes les cellules de la colonne 6 et pour chaque cellule je cherche la valeur dans la feuille 2, si cette valeur n'est pas trouvée, j'ouvre une nouvelle procédure avec un userform et des optionbutton (pour renseigner la cellule vide) et quand je reviens dans le prog principal la valeur R n'est plus reconnue. Je ne sais pas comment définir correctement la variable R comme tu me le préconises, si tu peux m'éclairer, merci beaucoup.

For R = 2 To lastrow Step 1
Cells(R, 6).Select
article = ActiveCell.Value
Sheets("feuil2").Select
Cells.Select
Application.DisplayAlerts = False

On Error Resume Next
Selection.Find(What:=article, After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate
If (Err.Number > 0) Then
Call Macro1 ' ouverture de userform avec des optionbutton

End If

Application.DisplayAlerts = True
ActiveCell.Offset(0, 2).Select
Selection.Copy
Sheets("feuil1").Select
Cells(R, 23).Select
ActiveSheet.Paste

Next R

Bonjour

Il faut qu'il soit défini en tête d'un module :

Public R as Long
Sub macrox
...
End Sub