Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Vidage de cellules quand saisie d'une autre cellule

Vidage de cellules quand saisie d'une autre cellule

8 réponses
Avatar
Fredo \(67\)
Bonjour,
J'ai une liste de nom affecté à des salles.
En colonne A, les noms
La colonne B représente la salle 1, La C la salle 2.... ainsi de suite
jusqu'a E

Je doit en face de chaque nom mettre une croix dans la Colonne correspondant
à la salle.
Chaque nom ne doit être affecté qu'a une seule salle

Je me suis dit que le plus simple serait que, en face de chaque nom, on ait
simplement à sélectionner la cellule correspondant à la salle d'affectation,
au moment de la sélection Excel efface (pour la ligne) toute croix qui
aurait précédemment été mise, et en met une dans la bonne colonne

Pour un autre fichier j'utilise ça pour saisir une date quand une cellule
change
==>Private Sub worksheet_change(ByVal target As Excel.Range)
==>If target.Column = 2 Then target.Offset(0, 3) = Date
==>End Sub

Mais pas moyen de l'adapter

Merci de votre aide..
--
**********************
Fredo
Strasbourg
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Asterix
Bonjour Fredo,

Essayes ça :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column >= 2 And Target.Column <= 5 Then
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row, 5)).ClearContents
Target.Value = "X"
End If
End Sub

bon courage et allez Monaco !

Astérix
Avatar
Fredo \(67\)
Merci, c'est exactement ce que je cherchais.

Et allez Porto !

(non je blague)
Allez Monaco


"Asterix" a écrit dans le message de
news:
Bonjour Fredo,

Essayes ça :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column >= 2 And Target.Column <= 5 Then
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row,
5)).ClearContents

Target.Value = "X"
End If
End Sub

bon courage et allez Monaco !

Astérix




Avatar
tictok
[HS]
Allez Monaco !
Aux ******** Porto !
[/HS]
:D

"Fredo (67)" escreveu na mensagem
news:#
Merci, c'est exactement ce que je cherchais.

Et allez Porto !

(non je blague)
Allez Monaco


"Asterix" a écrit dans le message de
news:
Bonjour Fredo,

Essayes ça :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column >= 2 And Target.Column <= 5 Then
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row,
5)).ClearContents

Target.Value = "X"
End If
End Sub

bon courage et allez Monaco !

Astérix








Avatar
sabatier
moi, dès l'instant où il s'agit de boissons, je suis pour les deux et
dans un grand verre de préférence...
jps

tictok a écrit:
[HS]
Allez Monaco !
Aux ******** Porto !
[/HS]
:D

"Fredo (67)" escreveu na mensagem
news:#

Merci, c'est exactement ce que je cherchais.

Et allez Porto !

(non je blague)
Allez Monaco


"Asterix" a écrit dans le message de
news:

Bonjour Fredo,

Essayes ça :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column >= 2 And Target.Column <= 5 Then
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row,


5)).ClearContents

Target.Value = "X"
End If
End Sub

bon courage et allez Monaco !

Astérix












Avatar
tictok
;o)
Tu reprendras bien un petit coup de Pastaga (j'ai cru voir un Marseillais
sur ce Newsgroup) ?

"sabatier" escreveu na
mensagem news:
moi, dès l'instant où il s'agit de boissons, je suis pour les deux et
dans un grand verre de préférence...
jps

tictok a écrit:
[HS]
Allez Monaco !
Aux ******** Porto !
[/HS]
:D

"Fredo (67)" escreveu na mensagem
news:#

Merci, c'est exactement ce que je cherchais.

Et allez Porto !

(non je blague)
Allez Monaco


"Asterix" a écrit dans le message de
news:

Bonjour Fredo,

Essayes ça :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column >= 2 And Target.Column <= 5 Then
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row,


5)).ClearContents

Target.Value = "X"
End If
End Sub

bon courage et allez Monaco !

Astérix















Avatar
GD
;-)))
Mets en alors plusieurs de coté....
va y avoir de la concurrence !!!
j'ai cru comprendre sur MPFW que Geo (la douce Touraine) et JièL (le
marseillais de Cassis)
avaient l'intention de s'immiscer dans nos prochaines agapes MPFE ....
;o)))

"tictok" a écrit dans le message de
news:
;o)
Tu reprendras bien un petit coup de Pastaga (j'ai cru voir un Marseillais
sur ce Newsgroup) ?

"sabatier" escreveu na
mensagem news:
moi, dès l'instant où il s'agit de boissons, je suis pour les deux et
dans un grand verre de préférence...
jps

tictok a écrit:
[HS]
Allez Monaco !
Aux ******** Porto !
[/HS]
:D

"Fredo (67)" escreveu na mensagem
news:#

Merci, c'est exactement ce que je cherchais.

Et allez Porto !

(non je blague)
Allez Monaco


"Asterix" a écrit dans le message de
news:

Bonjour Fredo,

Essayes ça :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column >= 2 And Target.Column <= 5 Then
Range(Cells(ActiveCell.Row, 2), Cells(ActiveCell.Row,


5)).ClearContents

Target.Value = "X"
End If
End Sub

bon courage et allez Monaco !

Astérix



















Avatar
Asterix
n'empeche qu'ils ont perdu !

mais bon que cela ne nous empeche pas de boire un coup a leur santé

Asterix
Avatar
tictok
Voui.
Mais bon il y a encore l'Euro 2004 !
:)

"Asterix" escreveu na mensagem
news:
n'empeche qu'ils ont perdu !

mais bon que cela ne nous empeche pas de boire un coup a leur santé

Asterix