recopie vers le bas automotaisée

  • Initiateur de la discussion Initiateur de la discussion oliv67
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Re : recopie vers le bas automotaisée

Bonjour à tous

Voici une macro
Code:
Private Sub CommandButton1_Click()
    Dim i As Long, cel As Range
    For i = 1 To Range("B65536").End(xlUp).Row
        If Range("D" & i) <> "" Then Set cel = Range("D" & i)
        Range("D" & i).Value = cel.Value
    Next
End Sub

Bon dimanche
 
Re : recopie vers le bas automotaisée

Bonjour oliv,
bonjour wilfried 😉 et abcd
une autre solution :

Code:
Sub remplit_vides()
With Range("D1:D" & [B65000].End(xlUp).Row)
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
    .Value = .Value
End With
End Sub
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
25
Affichages
908
Réponses
19
Affichages
875
Réponses
3
Affichages
280
Retour