Discussion :

[Sherman750]

Bonjour à tous,

Je suis relativement nouveau avec VBA et je cherche dans toute sorte de forum pour trouver la réponse à ma question mais sans résultat concluant jusqu'à présent.

À l'aide de ma macro je veux remplir les cellules d'une colonne vers le bas jusqu'à la dernière cellule de la colonne adjacente.

Voici un bout de code pour vous aider à vous placer:

Code :

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

1
2
3
  Range("I65536").Select
    Selection.End(xlUp).Select
    Selection.AutoFill Destination:=Range(Range("I65536").End(xlUp).Row & Range("H65536").End(xlUp).Row)

Dans le fond, je veux trouver la dernière cellule remplie à laquelle je dois remplir/copier l'information de la colonne adjacente.

Est-ce que quelqu'un peut m'aider?

Merci

[Fvandermeulen]

Salut,

Pour récupéré le numéro de la dernière ligne remplie j'utilise:

Code :

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

1
2
3
4
5
Dim Ws as worksheet
Dim DerLig as long
 
Set Ws = sheets("LeNomDeTaFeuille")
DerLig= ws.cells(ws.columns(8).cells.count,8).end(xlup).row

Adapte le nom de ta feuille
La variable DerLig fonctionne sous le même principe que ton select sur base de la colonne N°8 donc H (C'est donc bien ta référence ?)
Le Columns.cells.count t'affranchi des différences de N° de ligne entre XL2003 et XL2010.
Il te reste à copier la formule sur la plage, si la formule de référence est en I2

Code :

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

ws.cells(2,8).copy destination:=ws.range(ws.cells(2,9),ws.cells(derlig,9))

Ecrit à la volée, j'espère ne pas avoir fait de coquilles parce que pas testé

A+

[Sherman750]

C'est presque ça en fait. J'ai oublié de mentionner quelque chose c'est pour ça.

Supposons que la dernière cellule rempli de la colonne 'H' est la H200 et que la dernière cellule rempli de la colonne 'I' est la I190, je dois copier la cellule I190 jusqu'à la cellule I200 pour rejoindre la cellule H200.

Alors Fvandermeulen, ta solution est presque complète cependant pour le moment le bout de code que tu m'as offert me fait copier le cellule I2 jusqu'à I200, pour revenir à mon exemple précédent.

Il est a mentionné que la cellule qui est à copier ne sera jamais la même plus mon travail avance dans le temps. Puisque je fait une compilation de facture.

J'espère être assez clair pour ne pas faire perdre de temps à personne.

Je suppose que dans ce bout de code

Code :

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

ws.cells(2,8).copy destination:=ws.range(ws.cells(2,9),ws.cells(derlig,9))

Il y a les termes "2" qui ne sont pas ce que je dois écrire pour obtenir ce que j'ai besoin.

[gFZT82]

Bonjour,

Essaie comme cela

Code :

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

1
2
3
4
5
6
7
8
    With Ws
        'Je détermine le numéro de la dernière ligne renseignée dans la colonne H
        DerLigH = .Range("H" & .Rows.Count).End(xlUp).Row
        'Je détermine le numéro de la dernière ligne renseignée dans la colonne I
        DerLigI = .Range("I" & .Rows.Count).End(xlUp).Row
        'J'effectue la recopie incrémentée dans la colonne I
        .Range("I" & DerLigI).AutoFill Destination:=.Range(.Range("I" & DerLigI), .Range("I" & DerLigH))
    End With

Cordialement.

[Sherman750]

Excellent ça fonctionne.

Maintenant comment faire pour fusionner les cellules dernièrement copiées? Il ne me reste que ça à faire.

Merci d'avance

[gFZT82]

Je ne comprends pas vraiment ce que tu cherches à faire.
Avec la fusion, tu ne conserves que la donnée de la cellule supérieure de la plage fusionnée (toutes les autres données seront supprimées).
Je ne vois pas l'intérêt d'avoir copié ces données.

Cordialement.

[Sherman750]

@gFZT82:
Tu as vraiment raison...zut!!!
Donc dans cette ligne de code

Code :

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

.Range("I" & DerLigI).AutoFill Destination:=.Range(.Range("I" & DerLigI), .Range("I" & DerLigH))

J'aurais juste à remplacer "Autofill" pas "Merge" j'imagine?

Ça ne fonctionne pas si je fait juste changer "Autofill" par "Merge".

Code :

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

.Range("I" & DerLigI).Merge Destination:=.Range(.Range("I" & DerLigI), .Range("I" & DerLigH))

[gFZT82]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
With Ws
        'Je détermine le numéro de la dernière ligne renseignée dans la colonne H
        DerLigH = .Range("H" & .Rows.Count).End(xlUp).Row
        'Je détermine le numéro de la dernière ligne renseignée dans la colonne I
        DerLigI = .Range("I" & .Rows.Count).End(xlUp).Row
        'Je détermine la plage concernée par la copie et la fusion
        Set Plage = .Range(.Range("I" & DerLigI).Offset(1), .Range("I" & DerLigH))
        'J'effectue la copie de la derniere cellule dans la colonne I
        .Range("I" & DerLigI).Offset(1) = .Range("I" & DerLigI)
        'J'effectue la fusion de la plage
        Plage.Merge
End With

Cordialement.

[Sherman750]

@gFZT82:
Excellent ça fonctionne au poil. Il a fallu que je retire les "Offset" par contre sinon je copiais la cellule et je fusionnais après. C'est excellent j'ai compris comment faire pour cette fois.

Voici le code maintenant bien travaillé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
    'Merge the billed cell
 
    Dim Ws As Worksheet
    Dim DerLig As Long
 
    Set Ws = Sheets("Invoices compiled")
    DerLig = Ws.Cells(Ws.Columns(8).Cells.Count, 8).End(xlUp).Row
 
    With Ws
        'Je détermine le numéro de la dernière ligne renseignée dans la colonne H
        DerLigH = .Range("H" & .Rows.Count).End(xlUp).Row
        'Je détermine le numéro de la dernière ligne renseignée dans la colonne I
        DerLigI = .Range("I" & .Rows.Count).End(xlUp).Row
        'J'effectue la recopie incrémentée dans la colonne I
         Set Plage = .Range(.Range("I" & DerLigI), .Range("I" & DerLigH))
        'J'effectue la copie de la derniere cellule dans la colonne I
        .Range("I" & DerLigI) = .Range("I" & DerLigI)
        'J'effectue la fusion de la plage
        Plage.Merge
    End With

Merci beaucoup de l'aide