remplir cases vides

[airsage]

Bonjour,

J'ai un problème pour remplir les cases vides dans un tableau excel avec 3 conditions. Ces 2 conditions peuvent se dérouler l'une après l'autre dans cet ordre.

Ci joins un fichier excel avec les cas.

Condition 1 : Dans le cas 1 et 2, la colonne J-1 est vide. Je voudrais remplir la case J-1 avec le dernier statut entre J-2 et J-7. Pour le cas 1, J-1 serait "Failed" et pour le cas 2 J-1 serait "Successful"

Condition 2 : Dans le cas 3 et 4, La colonne J-1 et renseignée. Je voudrais copier le statut de la cellule J-1 jusqu’à la prochaine cellule pleine. Pour le cas 3, copier le statut "Failed" jusqu’à la colonne J-3 et pour le cas 4, copier le statut "Successful" jusqu'a la colonne J-4.

Condition 3 : Toutes les cases vides remplies par les conditions 1 et 2, la case doit être en jaune.

Merci par avance pour votre aide.

 

[Gardien de phare]

Re : remplir cases vides

Bonjour,

Formule ou macro ?

 

[JCGL]

Re : remplir cases vides

Bonjour à tous,

Peux-tu essayer avec ceci :

Option Explicit
Sub Test()
Dim Col&, Lig&
For Col = 5 To 11
For Lig = Range("D65000").End(xlUp).Row To 2 Step -1
If Cells(Lig, Col) = "" And Cells(Lig, Col + 1) <> "" Then
Cells(Lig, Col) = Cells(Lig, Col + 1)
Cells(Lig, Col).Interior.ColorIndex = 6
End If
Next Lig
Next Col
End Sub

A+ à tous

 

[airsage]

Re : remplir cases vides

bonjour GCGL,

Le code VBA que tu m'as envoyé rempli bien la condition 1 et 3, mais pas la condition 2.
J'ai réussi a adapter le code pour s'adapter aussi à la condition 2.

Merci beaucoup pour ton aide précieuse.

@+

 

[airsage]

Re : remplir cases vides

Bonjour Gardien-de-phare

C'est vrai que je n'avais pas précisé que c'est en code VBA que je voulais que ça fonctionne.
JCGL m'a bien aidé.

Merci de t’être penché sur ma question.