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 !