Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
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
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
- 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