VBA : Remplissage cellules vides

actaris51 Messages postés 93 Date d'inscription   Statut Membre Dernière intervention   -  
melanie1324 Messages postés 1504 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   155
 
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