Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

O

Olihoes

XLDnaute Nouveau
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
 

Pièces jointes

  • Tableau pleins chauffeurs.xlsx
    142.8 KB · Affichages: 8
Solution
Bonjour Olihoes, et bienvenu sur XLD, bonjour Phil,
Un essai en PJ avec cette macro :
VB: 
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
Trier par date Trier par votes

Phil69970

XLDnaute Barbatruc
Bonjour @Olihoes et bienvenu sur XLD

Olihoes à dit:
J'espère ne pas avoir été trop brouillon dans mon explication…
Cliquez pour agrandir...
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.
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Olihoes, et bienvenu sur XLD, bonjour Phil,
Un essai en PJ avec cette macro :
VB: 
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
 

Pièces jointes

  • Tableau pleins chauffeurs.xlsm
    292 KB · Affichages: 1
Vote positif 0 Vote négatif
Solution
O

Olihoes

XLDnaute Nouveau
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

​

 
Vote positif 0 Vote négatif
C

CHRIS1945

XLDnaute Occasionnel
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
 

Pièces jointes

  • Tableau pleins chauffeurs.xlsm
    103.5 KB · Affichages: 1
Vote positif 0 Vote négatif
O

Olihoes

XLDnaute Nouveau
Merci également pour ta réponse qui semble fonctionner elle aussi
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

P
  • Question
Microsoft 365 Supprimer le contenu de cellules varaibles.
Réponses
4
Affichages
131
AtTheOne
E
  • Question
Microsoft 365 effacer formule en fonction de ce qui a été saisi dans une autre cellule
Réponses
6
Affichages
250
Phil69970
  • Résolu(e)
XL 2021 calcul de l'heure quand le soleil est au Zénith
3 4 5
Réponses
64
Affichages
2 K
dysorthographie
E
  • Question
XL 2016 Calcul cellules vides sous conditions multiples
Réponses
8
Affichages
486
DJunqueira
D
P
  • Résolu(e)
XL 2021 comparer le contenu de 14 cellules
Réponses
6
Affichages
360
JHA
J
J
  • Question
XL 2019 Message d'erreur si cellules vides
2
Réponses
25
Affichages
829
piga25
S
  • Question
XL 2021 Arrêt de la Macro si cellules vides
Réponses
6
Affichages
332
sambio2
S
  • Question
XL 2016 Formule nbre de jours ouvrés et cellules vides renvoyant la cellule O à vide
Réponses
3
Affichages
365
Gégé-45550
T
  • Résolu(e)
Microsoft 365 Chercher si dans une plage de cellule la valeur d'une autre cellule est présente
Réponses
4
Affichages
114
TomJoad
T
S
  • Résolu(e)
Microsoft 365 Copier automatiquement sur une ligne sur une autre feuille si la date est supérieur à une date définie
2
Réponses
17
Affichages
795
S.J
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…