O
ouali
Guest
Bonjour et bonne année
J'ai un petit soucis avec une de mes macros. Je souhaite remplir une ligne de chiffres qui s'incrémente automatiquement. J'ai utilisé le code suivant :
B = Sheets("IF_Tabelle").Range("D100").End(xlUp).Row ' On identifie la dernière ligne vide en partant du bas
For N = 3 To B
If Sheets("IF_Tabelle").Range("D" & N) Like "*232*" Then
Sheets("IF_Tabelle").Range("K" & N) = 1
Sheets("IF_Tabelle").Range("L" & N).FormulaR1C1 = "=RC[-1]+1"
Range("L" & N).Select
Selection.AutoFill Destination:=Range("L" & N & ":AP" & N), Type:=xlFillDefault
End If
Next N
Cette fonction est appelé depuis un userform qui s'ouvre à l'ouverture du fichier. Or c'est la qu'est le problème. Lorsque j'ouvre le fichier la fonction " Selection.AutoFill" ne marche pas. J'ai bien les numéro 1 et 2 qui se remplisse (donc le programme rentre bien dans cette macro) mais pas le reste. Par contre en voulant débugger,c'est-à-dire, en faisant pas à pas à l'aide de la touche F8 , la fonction Selection.AutoFill marche correctement et toutes mes colonnes sont remplies !!!
Je ne sais pas d'où peut provenir l'erreur. Est-ce que quelqu'un peut m'aider ?? Svp
Je ne peux pas envoyer le fichier qui est beaucoup trop important mais si vous avez des questions ou des suggestions n'hésitez surtout pas !! Merci d'avance
J'ai un petit soucis avec une de mes macros. Je souhaite remplir une ligne de chiffres qui s'incrémente automatiquement. J'ai utilisé le code suivant :
B = Sheets("IF_Tabelle").Range("D100").End(xlUp).Row ' On identifie la dernière ligne vide en partant du bas
For N = 3 To B
If Sheets("IF_Tabelle").Range("D" & N) Like "*232*" Then
Sheets("IF_Tabelle").Range("K" & N) = 1
Sheets("IF_Tabelle").Range("L" & N).FormulaR1C1 = "=RC[-1]+1"
Range("L" & N).Select
Selection.AutoFill Destination:=Range("L" & N & ":AP" & N), Type:=xlFillDefault
End If
Next N
Cette fonction est appelé depuis un userform qui s'ouvre à l'ouverture du fichier. Or c'est la qu'est le problème. Lorsque j'ouvre le fichier la fonction " Selection.AutoFill" ne marche pas. J'ai bien les numéro 1 et 2 qui se remplisse (donc le programme rentre bien dans cette macro) mais pas le reste. Par contre en voulant débugger,c'est-à-dire, en faisant pas à pas à l'aide de la touche F8 , la fonction Selection.AutoFill marche correctement et toutes mes colonnes sont remplies !!!
Je ne sais pas d'où peut provenir l'erreur. Est-ce que quelqu'un peut m'aider ?? Svp
Je ne peux pas envoyer le fichier qui est beaucoup trop important mais si vous avez des questions ou des suggestions n'hésitez surtout pas !! Merci d'avance