Microsoft 365 Copier ma formule en I2 jusqu'au niveau de la dernière cellule non vide de la colonne H

J

JHA

XLDnaute Barbatruc

• 13 Août 2021

• #2

Bonjour à tous,

Tu te mets en "I2" et tu "double clic" sur le carré en bas à droite de la cellule "I2"

JHA

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 13 Août 2021

• #3

Bonjour JHA,
Merci pour l'info, je ne connaissais pas,
lionel

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 13 Août 2021

• #4

Re-Bonjour,
Le petit carré n'est pas facile à ajuster.
J'ai enregistré l'action en vba et ça donne ce code :

VB:

Sub Macro1()
    [i2] = "=LOOKUP(RC[-1],km)"
    [i2].Select
    Selection.AutoFill Destination:=Range("I2:I100")
End Sub

J'ai un grand nombre de feuilles pour lesquelles il faut que fasse cette opération et pour bcp de fichiers.

Est-il possible que le code soit adapté de cette façon ? :
Selection.AutoFill Destination:=Range("I2:I100")
- 100 remplacé par : jusqu'au niveau de la dernière cellule non vide de la colonne H
lionel,

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 13 Août 2021

• #5

Hello tous

quelques trucs pour naviguer avec le clavier
* un double clic sur une bordure de la cellule==> la selection se déplace jusqu'à la prochaine cellule non vide
(si bordure du bas: cellule sur la meme colonne vers le bas, si bordure de droite: cellule sur meme ligne vers la droite.. etc etc

C'est quand meme beaucoup plus pratique que de faire un scroll avec l'ascenceur pour aller à la dernière ligne d'une feuille

* double clic + Shift = la range (cellule depart : cellule fin) est selectionnée

au clavier Sans souris
* double clic sur la bordure = Ctrl + fleche
* double clic + shift = Ctrl +Shift + flèche


*si double clic sur la croix: c'est une recopie vers le bas de la formule

sous vba, tout ca utilise le activecell.end(xldown)

donc ton souci est de trouver la valeur de la dernière ligne (ici 100)
Fin=activecell.end(xldown).row
Selection.AutoFill Destination:=Range("I2:I" &fin)

OU
Fin=activecell.offset(0,-1).end(xldown).row

 

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

• 13 Août 2021

• #6

Bonjour vgendron,
je te remercie pour les explications et c'est vrai que j'ai tendance à oublier les clics "de =base".
Mais le code : Selection.AutoFill Destination:=Range("I2:I" &fin) = :

@+ lionel

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 13 Août 2021

• #7

oui, mais. tu as oublié la ligne de code qui définit "Fin"

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 13 Août 2021

• #8

LOL, effectivement, dsl ...
Mais où ai-je la tête
Merci à toi

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Août 2021

• #9

Bonjour Lionel, JHA, vgendron,

On peut s'appuyer sur CurrentRegion :

VB:

Sub Macro1()
With [A1].CurrentRegion
    If .Rows.Count > 1 Then .Cells(2, 9).Resize(.Rows.Count - 1) = "=LOOKUP(H2,km)"
End With
End Sub

A+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 13 Août 2021

• #10

Bonjour Gérard,
Merci pour m'avoir répondu (ça faisait longtemps lol)
Toujours nickel et code super court.
Merci encore une fois
Bon WE,
lionel,

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 14 Août 2021

• #11

Bonjour,

vgendron à dit:

quelques trucs pour naviguer avec le clavier
* un double clic sur une bordure de la cellule==> la selection se déplace jusqu'à la prochaine cellule non vide

Cliquez pour agrandir...

Et donc pour naviguer avec la souris, utiliser <Fin> <flèche>

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 14 Août 2021

• #12

Bonjour Gérard, le Forum,
Je vous souhaite un bon WE

Code Gérard :
J'aurais voulu remplacer les formules par leurs valeurs sans passer par copier/coller valeur.
Je n'arrive pas à placer le ".value" correctement.
Voudrais-tu me dire comment faire :

VB:

Sub Gérard()
With [A1].CurrentRegion
    If .Rows.Count > 1 Then .Cells(2, 9).Resize(.Rows.Count - 1).Value = "=IF(RC[-1]<>"""",LOOKUP(RC[-1],km),"""")"
    'Cells(2 ligne, 9 colonne)
    Columns("I:I").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    [A1].Select
End With
End Sub

J'ai une autre p'tite question :
With [A1].CurrentRegion
- à koi sert le [A1] ?
- est-ce que la cellule [A1] doit être obligatoirement NON vide ?
Merci Gérard
lionel,

 

Vote positif 0 Vote négatif

merinos

XLDnaute Accro

• 14 Août 2021

• #13

Salut @Usine à gaz ,

Si tu as une bonne raison de na pas employer un tableau, tout ceci est valable....

Mais si tu peux employer un tableau, les formules se mettent toutes seules.. (rappel, du B-A = BA...)

J'en profite pour remercier @JHA

Bonjour à tous,

Tu te mets en "I2" et tu "double clic" sur le carré en bas à droite de la cellule "I2"

JHA

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Août 2021

• #14

Bonjour Lionel, merinos,

Allons Lionel, en VBA les Select sont à proscrire :

VB:

Sub Gérard()
With [A1].CurrentRegion
    If .Rows.Count > 1 Then .Cells(2, 9).Resize(.Rows.Count - 1) = "=IF(RC[-1]<>"""",LOOKUP(RC[-1],km),"""")"
    .Columns(9) = .Columns(9).Value 'supprime les formules
End With
End Sub

Pour comprendre CurrentRegion fait des essais en ajoutant le code MsgBox .Address dans le bloc With.

A+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 14 Août 2021

• #15

Bonjour Gérard,
Merci pour le retour
"Allons Lionel, en VBA les Select sont à proscrire"
Je suis bien d'accord mais je ne sais jamais par koi les remplacer lol
lionel

 

Vote positif 0 Vote négatif