VBA Remplir cellules vides
Résolu
actaris51
Messages postés
93
Date d'inscription
Statut
Membre
Dernière intervention
-
the_evil_peanuts Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
the_evil_peanuts Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- VBA Remplir cellules vides
- Organigramme a remplir word - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Verrouiller cellules excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Comment supprimer les pages vides sur word - Guide
2 réponses
bonjour,
voici ce que tu demandes
Sub celvides()
j=4 'met un numéro de colonne pour lequel tu as toujours une valeur dans ton tableau
i=1
cells(i,j).select
do while selection <> ""
cells(i,14).select 'sélection de la colonne n
if selection = "" then
selection ="01/01/2012"
end if
cells(i,15).select
if selection ="" then
selection = cells(i,14)
end if
i=i+1
cells(i,j).select
loop
End Sub
Un conseil : fais le tourner pavec F8 (pas à pas) pour etre sur que c'est ce que tu veux
voici ce que tu demandes
Sub celvides()
j=4 'met un numéro de colonne pour lequel tu as toujours une valeur dans ton tableau
i=1
cells(i,j).select
do while selection <> ""
cells(i,14).select 'sélection de la colonne n
if selection = "" then
selection ="01/01/2012"
end if
cells(i,15).select
if selection ="" then
selection = cells(i,14)
end if
i=i+1
cells(i,j).select
loop
End Sub
Un conseil : fais le tourner pavec F8 (pas à pas) pour etre sur que c'est ce que tu veux
Sub celvides()
Application.ScreenUpdating = False
(...)
loop
Application.ScreenUpdating = True
End Sub
ça évitera que excel n'actualise la page à chaque fois qu'une donnée change, et ça rendra la macro beaucoup plus rapide