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

XL 2019 Effacer contenu d'une cellule d'apres une autre cellule

N

NicolasKH

XLDnaute Junior
bonjour tout le monde,
je suis novice dans le domaine du VBA
je me tourne vers vous parce que je me fait trop mal a la tete et que je tourne en rond

mon probleme:
sur la feuille Sales dtabase
j'ai mon tableau avec de la colonne P a Q
je voudrais que quand les donnes de la colonne P ou Q change cela efface le contenu des cellules R a U

ou si non
quand le montant de le colonne P change cela efface les cellule suivante R et T
quand le montant de le colonne Q change cela efface les cellule suivante S et U

Deuxieme qustion:

sur la meme feuille dans le cellule W j'ai une formule en SI
=SI([@[Purchase Date]]="";"";SI([@Riel4]=0;"END";SI([@Riel4]<=0;"ERROR";SI([@[End of schedule]]>AUJOURDHUI();"WAIT ON";SI([@[End of schedule]]<=AUJOURDHUI();"END SCHEDULE")))))
qui fonctionne bien mais, ca ne fonctionne que si les valeur de la colonne X change, mais quand les valeur de la colonne Y change c'est toujours la colonne X qui est pris en compte.

j'ai chercher dans votre forum mais je n'ai pas trouver de reponse ou je suis vraiment bete.

je tiens a vous precisez que je suis vraiment novice.

merci de votre aide
 

Pièces jointes

  • Daily Report.xlsm
    149.9 KB · Affichages: 1
Dernière édition:
Solution
Re

@NicolasKH
Va falloir s'accrocher
1) Tu fais un clic droit sur le nom de l'onglet
et tu choisis Visualisez le code
Là tu copies/colles le code VBA ci-dessous
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:C")) Is Nothing Then
If Target.Row > 3 And Target.Count = 1 Then
Target.Offset(, IIf(Target.Column = 2, 5, 4)).Resize(, 4) = ""
End If
End If
End Sub
Puis tu retournes dans Excel (en appuyant sur les touches ALT+F11 en même temps)
Ensuite quand tu saisiras une valeur dans une cellule de la colonne B ou C
tu verras s'effacer les cellules des colonnes G:J sur la ligne active.
Trier par date Trier par votes

Phil69970

XLDnaute Barbatruc
Bonjour @NicolasKH et bienvenu sur XLD

Une image n'est pas un fichier.
Vu que le fichier existe il est plus simple de le joindre, non !
Plus la demande est précise plus la ou les réponses correspondra seront précises et pertinentes.
Ne pas hésiter à mettre des exemples avec les réponses souhaitées etc.....

Et pour augmenter les chances de réponses il faut poster au bon endroit ....
@Bernard_XLD peux tu déplacer la demande dans la bonne section STP.

@Phil69970
 
Dernière édition:
Vote positif 0 Vote négatif
N

NicolasKH

XLDnaute Junior
merci pour ta reponse rapide
je suis nouveau je ne sais pas comment faire pour changer de section
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Bonjour @NicolasKH , @Staple1600

Nicolas :

Quand je vois ça


Ou ça


Cela veux dire qu'on peut rien faire de ton fichier et on ne peut pas aller plus loin


Et quand je vois cela
NicolasKH à dit:
as tu whattapp ?
Cliquez pour agrandir...

Cela veut dire que tu n'as pas lu la charte et/ou compris le principe du forum.
XLD est un forum de partage et ton problème peut être similaire à un autre demandeur qui peut s'inspirer de la/les réponse(s).

Rappel du principe du forum c'est :
==>une question ==> une ou plusieurs réponses ==> je valide la réponse qui me va et que j'ai retenu
==> Nouvelle question ==> une ou plusieurs réponses==> je valide la réponse qui me va et que j'ai retenu....

Quand je vois ta question et ton fichier
NicolasKH à dit:
j'ai mon tableau avec de la colonne P a U
Cliquez pour agrandir...
Je me dis ce qui est évident pour toi ne l'ai pas forcément pour les membres du forum.
Quel tableau de quelle feuille ?
Un fichier avec les explications* détaillées serait le bienvenu.

*Explications : Quelles colonnes et lignes de quelle feuille , dans quelle circonstances .....

Pour info :

Quand on met un fichier à dispo il doit être le plus représentatif .
C'est quoi représentatif ?
- représentatif, même organisation des lignes et des colonnes, mêmes libellés, mêmes noms de feuilles...
- anonymisé, pas de données personnelles réelles tels nom, n° sécu, adresse ...
- simplifié, une quinzaine de lignes reproduisant l'ensemble des différents cas envisageables

*Éventuellement préciser l'ordre de grandeur des lignes à traiter, exemple mon fichier comporte 1 000 lignes ou bien 200 000 lignes ==> la méthodologie peut être différents.

Une demande claire donne très souvent une réponse rapide et qui correspond au mieux à la demande.

De plus si cela fonctionne sur le fichier fourni et pas sur le vrai fichier j'en conclu qu'il n'est en rien représentatif ou que tu n'as pas su transposer ce qui devrait être un simple copier coller.

Bonne lecture

@Phil69970
 
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Ouf

@NikokasKH
Donc on attends ton fichier remanié
1) On ne joint jamais le fichier original
2) Le demandeur prend le temps de créée un fichier exemple simplifié, allégé, non protégé qui illustre la question à résoudre (et seulement cela : pas besoin de fioritures: couleurs, images, bordures etc..)

Et c'est ce sur fichier exemple, que nous répondeurs, tenteront de proposer des solutions.

PS: je ne sais toujours pas si tu as lu la charte du forum.
 
Vote positif 0 Vote négatif
N

NicolasKH

XLDnaute Junior
bonjour tout le monde,
je suis novice dans le domaine du VBA
je me tourne vers vous parce que je me fait trop mal a la tete et que je tourne en rond

mon probleme:
sur la feuille Sales dtabase
j'ai mon tableau avec de la colonne E a F qui est le prix total d'achat
je voudrais que quand les donnes de la colonne E ou F change cela efface le contenu des cellules G a J

ou si non
quand le montant de le colonne E change cela efface les cellule suivante G et I
quand le montant de le colonne F change cela efface les cellule suivante H et J

Deuxieme qustion:

sur la meme feuille dans le cellule W j'ai une formule en SI
=SI(A4="";"";SI(M4=0;"END";SI(M4<=0;"ERROR";SI(K4>AUJOURDHUI();"WAIT ON";SI(K4<=AUJOURDHUI();"END SCHEDULE")))))
qui fonctionne bien mais, ca ne fonctionne que si les valeur de la colonne M change, mais quand les valeur de la colonne N change c'est toujours la colonne M qui est pris en compte.

j'ai chercher dans votre forum mais je n'ai pas trouver de reponse ou je suis vraiment bete.

je tiens a vous precisez que je suis vraiment novice.

merci de votre aide
 

Pièces jointes

  • Classeur1.xlsx
    9.9 KB · Affichages: 2
Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc
Re

@NicolasKH
Va falloir s'accrocher
1) Tu fais un clic droit sur le nom de l'onglet
et tu choisis Visualisez le code
Là tu copies/colles le code VBA ci-dessous
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B:C")) Is Nothing Then
If Target.Row > 3 And Target.Count = 1 Then
Target.Offset(, IIf(Target.Column = 2, 5, 4)).Resize(, 4) = ""
End If
End If
End Sub
Puis tu retournes dans Excel (en appuyant sur les touches ALT+F11 en même temps)
Ensuite quand tu saisiras une valeur dans une cellule de la colonne B ou C
tu verras s'effacer les cellules des colonnes G:J sur la ligne active.
 
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

O
  • Résolu(e)
Microsoft 365 Effacer le contenu de cellules si une autre cellule est vide
Réponses
9
Affichages
172
Olihoes
O
A
  • Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
223
sylvanu
S
  • Résolu(e)
Microsoft 365 Reporter le contenu d'une plage dans une cellule selon un ordre précis
Réponses
4
Affichages
159
sebastien176
S
C
  • Question
Microsoft 365 Insérer le contenu d'une cellule dans le texte d'une autre cellule
Réponses
2
Affichages
354
chris427
C
U
  • Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
292
Phil69970
C
  • Question
Microsoft 365 VBA activer filtre élaboré suite changement donnée d'une cellule
Réponses
5
Affichages
215
Chounoé
C
B
  • Question
Microsoft 365 Colonnes apparentes selon critères
Réponses
7
Affichages
336
Phil69970
C
  • Question
XL 2010 MsgBox selon la valeur d'une cellule
Réponses
2
Affichages
418
CATPLUS
C
F
  • Résolu(e)
Microsoft 365 Effacer le contenu si cellule suivante identique
Réponses
8
Affichages
393
fanch55
A
  • Résolu(e)
Microsoft 365 Enregistrer copie d'un fichier avec pour nom le contenu d'une cellule excel (macro)
2
Réponses
15
Affichages
540
firecarl
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…