Discussion :

[backx3]

Bonjour, je pense que mon probleme est tout con, mais je n'arrive pas à trouver...

Tout est dans le titre, je cherche à dérouler une formule mise en C2 jusqu'à la dernière ligne de la colonne B.

Voici mon code... :

Code :

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

1
2
3
4
    Set op = Range("B" & Rows.Count).End(xlUp).Rows
    Range("C2").Select
    ActiveCell.FormulaR1C1 = "=TEXT(RC[-2],""mmmm aaaa"")"
    Range("C2").AutoFill Destination:=Range("C2:C2" & op), Type:=xlFillDefault

Il me déroule la formule jusqu'à la 2928eme ligne alors que je n'ai que 18 lignes dans ma colonne B, j'pige pas trop

Des idées ?

Merci d'avance.

[cerede2000]

Bonjour à toi,

Déjà dans ton code y a un truc qui me chagrine :

Code :

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

Range("C2").AutoFill Destination:=Range("C2:C2" & op), Type:=xlFillDefault

Code :

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

Range("C2:C2" & op)

Ta range va forcément être entre C2 et C2XX ou XX vaut op, donc par exemple si op = "18" alors ta range sera "C2:C218"...

Correction :

Code :

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

Range("C2").AutoFill Destination:=Range("C2:C" & op), Type:=xlFillDefault

Ensuite tu peux largement simplifier ce petit bout de code comme suit :

Code :

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

1
2
Set op = Range("B" & Rows.Count).End(xlUp).Row
Range("C2:C" & op).FormulaR1C1 = "=TEXT(RC[-2],""mmmm aaaa"")"

[Marc-L]

Bonjour, bonjour !

L'informatique, c'est comme le français : faut pas être nul en orthographe ‼

Et évidemment quand il y a une faute dès la première ligne …

Enlever le s inutile de .Rows ainsi que le Set inutile au début ‼ Si au moins la variable avait été déclarée …

Voilà, voilà !

______________________________________________________________________________________________________

Je suis Paris, Charlie, …

[cerede2000]

Bien vu !!
Ca ne m'as même pas sauter aux yeux !
J'étais ébloui par la concaténation avec le 2 en trop

Option Explicit ou est tu......

[backx3]

Bonjour !

Merci pour vos réponses, j'ai compris l'histoire du C2:C2, du coup j'ai adapté en mettant C2:C et pourtant il me déroule encore jusqu'à la 228ème ligne et je comprends pas pourquoi vu que j'ai mis "C" et non pas "C2".. Sachant que la dernière ligne de op c'est 18.. '.'

Désolé pour la réponse tardive :/

[Marc-L]

Apparemment ce n'est toujours pas compris ! Ce serait bien aussi de poster la correction effectuée que l'on puisse vérifier !

Lire enfin le post #3 …

[backx3]

Le code modifié est celui-ci :

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
Sub ColonneC()
 
 
    Dim op As Integer
    op = Range("B" & Rows.Count).End(xlUp).Rows
    Range("C2:C" & op).FormulaR1C1 = "=TEXT(RC[-2],""mmmm aaaa"")"
 
End Sub

Je pensais avoir compris...

[cerede2000]

Tu n'as pas mis tes lunettes en relisant le post #3 de Marc-L

Dans ton code :

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
Sub ColonneC()
 
 
    Dim op As Integer
    op = Range("B" & Rows.Count).End(xlUp).Rows
    Range("C2:C" & op).FormulaR1C1 = "=TEXT(RC[-2],""mmmm aaaa"")"
 
End Sub

A la ligne :

Code :

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

op = Range("B" & Rows.Count).End(xlUp).Rows

Tu utilise la propriété RowS
Celle-ci renvoi la collection des lignes alors que toi tu veux connaitre le numéro de la ligne.
Il faut donc utiliser la propriété Row (sans S)

[backx3]

Aaaaaah bah vi en effet ça fonctionne mieux !

Quand tu dis "collection de lignes" tu parles de l'ensemble des lignes ?

Si c'est ça d'accord j'comprends mieux.... !

Merci ^.^

[cerede2000]

Oui, un objet Range qui contient toutes les lignes.
Donc le RowS comme tu l'appels te donne le nombre de ligne au total

[Marc-L]

Ne pas confondre la collection des lignes d'une plage (Rows) et le numéro de ligne d'une cellule (propriété Row) …

L'orthographe, toujours l'orthographe, même en informatique !

______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

______________________________________________________________________________________________________
Ne pas confondre faux départ et paravent !

[backx3]

Ca roule !

Merci ! Toujours au top ce forum !

Pourtant j'suis pas trop mal en orthographe ...

Merci pour vos precisions