[XL-2007] Macro comment copier une formule jusqu'à la derniere ligne d'une col [Résolu]

[zaza45]

Bonjour et Bonne Année

Je suis complétement débutante en macro et j'ai une table de x col dont le nombre de lignes s'incrémente.

J'utilise l'editeur de macro pour modifier le format des dates ou convertir en texte certaines colonnes.

Mais il faut que je copie une formule ou que j'indique qu'en col G la formule suivante :

Code :

si(estvide(b2);g2;b2)

jusqu'à la derniere ligne de la col actualisée.

Merci beaucoup pour votre aide

[jfontaine]

Bonjour,

Si on met ta formule en colonne G on va avoir une référence circulaire

En mettant la formule dans la colonne H tu peux utiliser cette ligne de code

Code :

Range("H2:H" & Range("B" & Rows.Count).End(xlUp).Row).FormulaLocal = "=si(estvide(b2);g2;b2)"

[zaza45]

Bonjour Jérôme,

Merci pour ta réponse, mais comme je ne connais pas du tout le VBA; je ne sais pas comment intégrer la ligne de code que tu m'as donné.

J'ai indiquer le code suivant mais la formule n'est copier que sur la 1ere ligne de la col soit h1. Par contre il selectionne la totalité de la col.

Code :

1
2
3
4
5
6
7
8
9
10
11
Sub eotp()
'
' eotp Macro
'
 
'
    Range("h2:h" & Range("B" & Rows.Count).End(xlUp).Row).FormulaLocal = "=si(estvide(b2);g2;b2)"
    Selection.Copy
    Range("H2:H" & Range("B" & Rows.Count).End(xlUp).Row).FormulaLocal = "=si(estvide(b2);g2;b2)"
    ActiveSheet.Paste
End Sub

[jfontaine]

Ajoutes un titre de colonne sur la ligne 1.

Pas besoin de copier/Coller avec cette ligne de code, la formule va se mettre sur toutes les lignes.

il faut utiliser une colonne qui est toujours renseignée (en rouge)

Code :

1
2
3
4
5
6
7
8
9
Sub eotp()
'
' eotp Macro
'
 
'
    Range("h2:h" & Range("B" & Rows.Count).End(xlUp).Row).FormulaLocal = "=si(estvide(b2);g2;b2)"

End Su

[zaza45]

C'est super, c'est pratiquement cela.

Tout d'abord je ne sais pas comment mettre un titre dans la col. Avant ou après les () bloque la macro.

Il me copie bien la formule dans ma table mais s'arrête à la 12ème ligne avant la fin sur une table de 19 845 lignes. Cette table commence à la ligne 21.

De plus, quel code puis-je utiliser pour mettre l'heure et la date dans une cellule à la jigne 2 par ex avant ma table ?

[jfontaine]

Tout d'abord je ne sais pas comment mettre un titre dans la col. Avant ou après les () bloque la macro.

Je pensais simplement a saisir un titre dans l'onglet


Si le tableau commence ligne 21, ne devrait on pas commencer a mettre la forlule ligne 21?
Si c'est le cas

Code :

Range("h21:h19845").FormulaLocal = "=si(estvide(b21);g21;b21)"

[zaza45]

Je me suis rendu compte de mon erreur, je n'avais pas selectionné la ligne 21 dans le code. merci beaucoup. C'est parfait.

Maintenant j'ai un autre problème car dans ma Base j'ai des montants avec des ". " pour les séparateurs de milliers. Si je remplace le "." par rien pour avoir un format numérique la macro converti les décimales aussi: par ex 499.66 devient 49966 ou 49 966

Code :

1
2
3
4
Columns("AV:AV").Select
    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

comment puis-je faire ?

[jfontaine]

Plutôt une convertion qu'un remplacement

A essayer

Code :

1
2
3
4
5
Columns("AV:AV").TextToColumns Destination:=Range("AV1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), DecimalSeparator:=",", ThousandsSeparator:=".", _
        TrailingMinusNumbers:=True

[zaza45]

Je n'ai pas compris avec le code j'ai les décimales avec un point

Code :

DecimalSeparator:=",", ThousandsSeparator:=".",

par contre avec l'inverse c'est bon

Code :

DecimalSeparator:=".", ThousandsSeparator:=".",

. Bizzard !

Merci beaucoup pour ton aide

[jfontaine]

C'est étonnant d'avoir un point comme symbole décimale et séparateur de milliers

Pas facile de s'y retrouver, en effet