Discussion :

[BiM]

Bonjour,

Je dois étendre des cellules par Autofill. La plage de ces cellules est dynamique. Cependant, elle comporte souvent des cellules fusionnées (qui n'ont pas d'adresse fixe, ce serait trop facile). Comment exclure les cellules fusionnées de l'Autofill ?

Code VBA :

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

1
2
3
4
FormulesInsertion1 = Cells(6, OngletAjout + 2).Address & ":" & Cells(300, OngletAjout + 2).Address
FormulesInsertion2 = Cells(6, OngletAjout + 2).Address & ":" & Cells(300, OngletAjout + 3).Address
 
feuille.Range(FormulesInsertion1).AutoFill Destination:=feuille.Range(FormulesInsertion2), Type:=xlFillDefault

On pourra simplifier le code en fixant les cellules à étendre :

Code VBA :

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

feuille.Range("C6:C300").AutoFill Destination:=feuille.Range("C6:D300"), Type:=xlFillDefault

Merci d'avance !

[BiM]

Bonjour,

Je cherche pas mal de mon côté !

J'ai fait ceci :

Code VBA :

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

1
2
3
4
5
6
7
8
Texte = ""
 
For Each cellule In Range("C6:C300")
    If cellule.MergeCells Then
        Texte = Texte & cellule.Address & ";"
        'Retirer cellule si fusionnée
    End If
Next cellule

En gros, je scanne toutes les cellules sélectionnées, je teste si c'est une cellule fusionnée, si oui, j'ajoute son adresse à la variable Texte.

Je voudrais donc savoir s'il est possible de faire un truc comme :

Code VBA :

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

Range("C6:C300").Retirer("C9")

(Sauf que ce n'est pas Retirer comme méthode ).

Merci pour votre aide !

[cafeine]

Hello,

je ne vois rien de plus malin que ce tu as fait.
Dans un autre cas j'ai du moi aussi reparcourir chaque cellule d'une plage.
http://www.developpez.net/forums/d51...ser-selection/

[BiM]

Heu, c'est à dire que là, je n'ai encore rien fait. Ou alors à Texte je rajoute seulement les cellules qui sont non fusionnées ?

N'y a t'il pas moyen de faire une différence d'ensemble de cette manière ?

Code :

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

Plage(MesCellules) MINUS Plage(MesCellulesFusionnees)