VBA : Remplissage cellules vides

Fermé
actaris51 Messages postés 93 Date d'inscription mardi 15 juillet 2008 Statut Membre Dernière intervention 11 juillet 2011 - 30 juil. 2009 à 10:49
melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 - 2 août 2009 à 11:30
Bonjour,
Je possède un fichier avec deux colonne "Delay" et "Delay causes", comme dans le template ci dessous :
http://www.cijoint.fr/cjlink.php?file=cj200907/cij8An9Fvj.xls
Je voudrais créer une macro qui remplit automatiquement les cellules vides de la colonne "delay causes" par "Unknown" UNIQUEMENT si le "delay" associé est >0

en gros ca serait :
Si "delay cause" = "vide" ET SI "Delay>0" alors "Delay cause"="Unknown"

Pouvez vous m'aider ?
Merci

1 réponse

melanie1324 Messages postés 1504 Date d'inscription vendredi 25 mai 2007 Statut Membre Dernière intervention 31 janvier 2018 154
2 août 2009 à 11:30
bonjour,

Voila le code :

dim i,j as long

i=1
j=1
cells(i,j).select
do while selection <> ""
if selection +1-1 >0 then
cells(i,j+1).select
if selection ="" then
selection = "unknown"
end if
end if
i=i+1
cells(i,j).select
loop

un conseil exécute le code en pas à pas (F8) pour voir comment ca réagit
0