Microsoft 365 Effacer le contenu de cellules si une autre cellule est vide

[Olihoes]

Bonjour à tous,

Je suis débutant en Excel et je n'arrive pas à trouver ce que je recherche vraiment sur le forum.

J'ai un tableau contenant des colonnes de D à Q (1 colonne par véhicule) dans lequel chaque jour de l'année est divisé en 3 lignes :
La première contient le nombre de litre que le chauffeur à pris, la seconde l'heure et la troisième le nom du chauffeur.

J'aimerai un bouton qui fasse en sorte que quand la cellule contenant le nombre de litres est vide les 2 cellules du dessous (heure et nom) se vident aussi.
(Pour qu'il ne reste donc au final dans mon tableau que le contenu des cellules des jours où le chauffeur a fait son plein avec l'heure et son nom)

Je vous joins mon début de tableau dans lequel j'ai juste indiqué des litres pour le début de l'année pour pouvoir tester.

J'espère ne pas avoir été trop brouillon dans mon explication…


Merci d'avance.

Olivier

 

[Phil69970]

Bonjour @Olihoes et bienvenu sur XLD

J'espère ne pas avoir été trop brouillon dans mon explication…

Perdu .....

Les heures dans ton fichier sont générées aléatoirement et en plus elle change à chaque changement d'une cellule de la feuille cela n'a aucun sens pour moi alors explique le concept ?????
Quelle est l’intérêt de faire comme cela ?

Et si l'heure n'a pas d'importance autant s'en passer et de mettre quelque comme chose genre "Plein fait" à la place.

 

[sylvanu]

Bonjour Olihoes, et bienvenu sur XLD, bonjour Phil,
Un essai en PJ avec cette macro :

Sub Nettoyage()
Dim L%, C%, Tablo
Application.ScreenUpdating = False
Tablo = Range("A9:Q" & 2 + [A10000].End(xlUp).Row)
For L = 1 To UBound(Tablo) Step 3
    For C = 4 To UBound(Tablo, 2)
        If Tablo(L, C) = "" Then
            Tablo(L + 1, C) = ""
            Tablo(L + 2, C) = ""
        End If
    Next C
Next L
[A9].Resize(UBound(Tablo, 1), UBound(Tablo, 2)) = Tablo
End Sub

 

[Olihoes]

Un grand merci Sylvanu, cela semble fonctionner parfaitement

Et Phil69970 oui je sais que cela semble bizarre mes heures qui changent aléatoirement mais en fait je dois faire des tableau pour des années précédentes où les chauffeurs n'indiquaient pas l'heure donc j'invente un peu


Merci pour votre aide super rapide

​

 

[CHRIS1945]

Bonjour Olihoes,
Voici une proposition.
J'ai ajouté en colonne AA un comptage des lignes du tableau que j'utilise dans le VBA.
Le VBA est documenté et est facile à comprendre.
Tu cliques sur le bouton pour lancer le VBA
Le nettoyage a été fait donc pour tester il faut réintroduire des données.
Bonne continuation
Chris

 

[Phil69970]

re

@Olihoes

les chauffeurs n'indiquaient pas l'heure donc j'invente un peu

Et bien pour des prises de carburant passées dont tu ne connais pas/plus l'heure il me parait plus simple de mettre tout le monde arbitrairement à la même heure par exemple 12:00

 

[Olihoes]

re

@Olihoes


Et bien pour des prises de carburant passées dont tu ne connais pas/plus l'heure il me parait plus simple de mettre tout le monde arbitrairement à la même heure par exemple 12:00

C'était pour faire + réaliste

 

[Olihoes]

Bonjour Olihoes,
Voici une proposition.
J'ai ajouté en colonne AA un comptage des lignes du tableau que j'utilise dans le VBA.
Le VBA est documenté et est facile à comprendre.
Tu cliques sur le bouton pour lancer le VBA
Le nettoyage a été fait donc pour tester il faut réintroduire des données.
Bonne continuation
Chris

Merci également pour ta réponse qui semble fonctionner elle aussi

 

[Phil69970]

Alors fait un copier/coller par valeur pour "figer" les heures "aléatoires" pour éviter quelle change à chaque modification de cellule cela fera réellement plus réaliste car au moins l'heure ne changera plus !

 

[Olihoes]

Alors fait un copier/coller par valeur pour "figer" les heures "aléatoires" pour éviter quelle change à chaque modification de cellule cela fera réellement plus réaliste car au moins l'heure ne changera plus !

Merci du conseil