Voici un extrait de mon code qui été créer en mode enregistrement
J'ai donc saisi ma formule
Puis par un clic droit dans le coin inférieur de ma cellule, la formule se
recopie jusqu'à la ligne 527 et c'est là le problème.
J'aimerai que la formule soit recopiée jusqu'à la dernière ligne non-vide de
cette même colonne. Il n'y aura jamais de ligne vide au milieu de la colonne
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Patrick,
Essaie quelque chose comme ceci :
Dim A As Long With Range("J2") .FormulaR1C1 = "=(VLOOKUP(LEFT(RIGHT(RC[-9],7),3)*1,NUMACA,3,FALSE)&RIGHT(RC[-9],4))*1" A = .End(xlDown).Row - 1 .Resize(A).FillDown End With
Salutations!
"Patrick Dupin" a écrit dans le message de news: 4351178a$0$457$ Bonjour
Voici un extrait de mon code qui été créer en mode enregistrement
J'ai donc saisi ma formule
Puis par un clic droit dans le coin inférieur de ma cellule, la formule se recopie jusqu'à la ligne 527 et c'est là le problème.
J'aimerai que la formule soit recopiée jusqu'à la dernière ligne non-vide de cette même colonne. Il n'y aura jamais de ligne vide au milieu de la colonne
Dim A As Long
With Range("J2")
.FormulaR1C1 = "=(VLOOKUP(LEFT(RIGHT(RC[-9],7),3)*1,NUMACA,3,FALSE)&RIGHT(RC[-9],4))*1"
A = .End(xlDown).Row - 1
.Resize(A).FillDown
End With
Salutations!
"Patrick Dupin" <pindu33@hotmail.com> a écrit dans le message de news: 4351178a$0$457$7a628cd7@news.club-internet.fr...
Bonjour
Voici un extrait de mon code qui été créer en mode enregistrement
J'ai donc saisi ma formule
Puis par un clic droit dans le coin inférieur de ma cellule, la formule se
recopie jusqu'à la ligne 527 et c'est là le problème.
J'aimerai que la formule soit recopiée jusqu'à la dernière ligne non-vide de
cette même colonne. Il n'y aura jamais de ligne vide au milieu de la colonne
Dim A As Long With Range("J2") .FormulaR1C1 = "=(VLOOKUP(LEFT(RIGHT(RC[-9],7),3)*1,NUMACA,3,FALSE)&RIGHT(RC[-9],4))*1" A = .End(xlDown).Row - 1 .Resize(A).FillDown End With
Salutations!
"Patrick Dupin" a écrit dans le message de news: 4351178a$0$457$ Bonjour
Voici un extrait de mon code qui été créer en mode enregistrement
J'ai donc saisi ma formule
Puis par un clic droit dans le coin inférieur de ma cellule, la formule se recopie jusqu'à la ligne 527 et c'est là le problème.
J'aimerai que la formule soit recopiée jusqu'à la dernière ligne non-vide de cette même colonne. Il n'y aura jamais de ligne vide au milieu de la colonne
