Discussion :

[Chevrefeuille]

Bonjour,

Je suis novice en écriture de macros avec VB et je rencontre le problème suivant :

Je dois appliquer une formule à toutes les lignes d'une colonne mais je ne sais pas par avance combien de lignes seront présentes (entre 500 et 10.000).

J'ai donc écrit la formule (pour l'exemple on va dire Ax+1) et je dois l'appliquer dans le colonne B à partir de la ligne 2 et jusqu'à la dernière ligne de mon document qui contiendra des informations.

En B2 on aura "=A2+1"
En B3 on aura "=A3+1"
En B4 on aura "=A4+1"
En B5 on aura "=A5+1"
Vous avez compris le principe...
Tout cela jusqu'à la dernière ligne contenant des infos mais je ne la connais pas à l'avance.

Si quelqu'un peux m'aider ça serait très sympa, merci d'être aussi clair que possible car je suis novice et je n'ai écrit que quelques macros avec VBE. En plus il va falloir que j'intègre ça à une macro que j'ai préparé.

Merci d'avance.
Chevrefeuille.

[Tydher]

Salut,

Le plus simple pour toi serai de mettre tes operations dans une boucle qui teste si la case suivante et vide ou pas. Si ta case est vide alors tu t'arette, sinon tu continue tes opérations.

Par exemple tu ferai

Tant que Bx different de "" alors
...
operations
...
Fin tant que

Avec une methode de ce genre, sa te permettra t'arreter tes operations a l'endroit voulu !

[Minick]

Salut,

Quelque chose comme ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B2:B" & Range("A" & Cells.Rows.Count).End(xlUp).Row).FormulaR1C1 = "=RC[-1]+1"

[Chevrefeuille]

Tydher, ça me semble un excellent idée mais comme je le disais je ne suis pas expert en macro et je ne sais pas comment retranscrire cette boucle Si, Alors, FinSi.

Minick, peux tu détailler le but de chaque partie de ton code pour que je puisse le comprendre ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B2:B" & Range("A" & Cells.Rows.Count).

--> Que fait cette partie ? Ca ressemble à une sélection mais que fait Cells.Rows.Count ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

End(xlUp).Row).FormulaR1C1 =

--> Que fait cette partie ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"=RC[-1]+1"

--> Ma formule !

Chevrefeuille

[78chris]

Bonjour

Si tu tapes le code de Minick dans un module et que tu sélectionnes les termes que tu ne comprends pas et appuie sur la touche F1 tu sauras tout.

Quand à "=RC[-1]+1" c'est la façon de référencer la cellule située sur la même rangée à - 1 colonne (donc A par rapport à B) pour ajouter 1 à son contenu.

[iperkut]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Sub toto()
 
'On part de 2 jusqu'a la dernière ligne rensiegnée
For i = 2 To Sheets(1).Range("A65000").End(xlUp).Row
    Cells(i, 2).Value = Cells(i, 1) + 1
    'Cells(ligne,colonne)
Next i
 
End Sub

non ?

[laetitia]

bonjour tous on peut tenter AutoFill

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub es()
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]+1"
 Selection.AutoFill Destination:=Range("b2:b" & Range("a65536").End(xlUp).Row)
 End Sub

[Chevrefeuille]

Bonjour,
J'ai choisi le code de laetitia, il est très simple et fonctionne parfaitement.
Il ne me reste plus qu'à l'adapter.
Merci à tous de votre aide.
Chevrefeuille

[Chevrefeuille]

Bonjour,

J'ai tenté d'appliquer le code de Laetitia à mon besoin mais il ne fonctionne pas dans ce cas.
En fait la formule que je veux appliquer dans la colonne B n'est pas =Ax+1 mais =SI(ESTVIDE(Ax);+"vide";Ax).

Comment puis-je faire ?

Chevrefeuille

[Minick]

Salut,

Je persiste avec ma version qui n'est pas plus complique qu'une autre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B2:B" & Range("A" & Cells.Rows.Count).End(xlUp).Row).FormulaR1C1 = "=IF(ISBLANK(RC[-1]),"""",RC[-1])"

Pour avoir la traduction d'une formule facilement, tu lances l'enregistreur de macros tu double-cliques dans
la cellule ou est ta formule, tu valides par entree, tu arretes l'enregistreur et tu as la formule.

=IF(ISBLANK(RC[-1]),"""",RC[-1]) et l'equivalent de =SI(ESTVIDE(Ax);+"vide";Ax)

[Chevrefeuille]

Merci de ton aide Minick,

Peux tu m'expliquer à quoi sert cette partie de ta réponse : ,"""", ?
J'ai l'impression qu'il s'agit de l'action à exécuter dans le cas ou le test SI est vrai mais comment puis-je la remplacer par une instruction du type -écrire le mot "vide"- ?

Chevrefeuille

[Minick]

J'avais mal interprete ta formule, je pensais (bien je ne voyais pas l'interet de la formule)
que tu voulais ne rien afficher.

C'est bien la condition vrai, il suffitde mettre ce que tu veux entre les """".
Par exemple: ""vide"" , il faut doubler les guillemets pour que ca ne soit pas considere
comme la fin de ta chaine(ta formule) dans vbe.

[Chevrefeuille]

Ça fonctionne !

Merci de votre aide précieuse.