Discussion :

[Stan_fr]

Bonjour,

Encore un problème sans doute simple mais que je n'arrive pas à résoudre :

J'ai dans une colonne des nombres entiers par exemple :

1 en ligne 1
3 en ligne 4
...
et des cellules vides ailleurs.

Je voudrais que si l'on tape n en ligne m, il y ait une vérification de recouvrement : c'est à dire vérifier qu'il y a uniquement des blancs dans les lignes m à m + n - 1 et dans le cas contraire afficher un message d'erreur et remettre la valeur qu'il y avait précédemment en ligne m.

Exemple : avec les données précédentes accepter 1, 2 ou 3 comme saisie en ligne 1 mais refuser toute valeur supérieure ou égale à 4 et dans ce cas conserver à la ligne 1 sa valeur avant tentative de modification.

Je suppose qu'il faut utiliser Worksheet_Change mais je ne sais pas comment récupérer la valeur avant modification ?

Merci d'avance de votre aide.

[Stan_fr]

La nuit portant conseil je me suis dit que j'allais récupérer la valeur préventivement à chaque changement de cellule avec Worksheet_SelectionChange :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Dim Valeur As Variant
Dim Ligne As Long
Dim Colonne As Long
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Valeur = Target.Value
    Ligne = Target.Row
    Colonne = Target.Column
 
End Sub

Le problème c'est que ça ne marche pas ??? (j'ai mis des espions sur Colonne, Ligne et Valeur : rien ne bouge).

Merci par avance de votre aide.

[unparia]

Bonjour
Qu'est-ce qui "ne marche pas" (expression devenue trop habituelle et dénuée de sens précis) ?
- on ne voit pas, dans ce que tu montres, où et comment tu vérifies et décides de rétablir ou non l'ancienne valeur

- le code que tu montres fait lui, son boulot et SON SEUL BOULOT (le seul que tu as défini), à savoir stocker en mémoire (dans tes variables) ce que tu as décidé d'y stocker ! Et il le fait, mais là s'arrête son action (la sienne). Que fais-tu ensuite de ces variables ? On ne le voit pas ...

[Stan_fr]

Bonjour
Qu'est-ce qui "ne marche pas" (expression devenue trop habituelle et dénuée de sens précis) ?
- on ne voit pas, dans ce que tu montres, où et comment tu vérifies et décides de rétablir ou non l'ancienne valeur

- le code que tu montres fait lui, son boulot et SON SEUL BOULOT (le seul que tu as défini), à savoir stocker en mémoire (dans tes variables) ce que tu as décidé d'y stocker ! Et il le fait, mais là s'arrête son action (la sienne). Que fais-tu ensuite de ces variables ? On ne le voit pas ...

Bonjour,

Mea Culpa et Merci : c'est exact je ne montre pas ce que je fais pour gérer les changements de valeur et tu as raison ça "marche" ; j'ai fait un test avec le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
Dim Valeur As Variant
Dim Ligne As Long
Dim Colonne As Long
Dim Message As String
 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Valeur = Target.Value
    Ligne = Target.Row
    Colonne = Target.Column
    Message = "Valeur " & Valeur & " Li " & Ligne & " Co " & Colonne
    MsgBox Message, vbOKOnly, "Test Valeurs"
 
End Sub

Et j'ai bien ce que je voulais.

Mais alors pourquoi les espions ne "voyaient" rien ?

[unparia]

Et on ne voit toujours pas ce que tu en fais, de ces variables gardées en mémoire !!

Quoi qu'il en soit : tu as eu tout ce dont tu avais besoin dans mon message précédent.


EDIT :

Mais alors pourquoi les espions ne "voyaient" rien ?

Devine ! (ce sera facile à deviner si tu lis très attentivement ce que j'ai écrit plus haut).
L'espion ne voit que ce qu'il peut voir AU MOMENT où il "regarde", pardi.

[unparia]

Ouille ...!
J'ai dit/fait une bêtise (sorti d'un trou pour aller dans un autre).
Attends que je revienne des courses, s'il te plait.

[pijaku]

Bonjour,

Le problème c'est que ça ne marche pas ??? (j'ai mis des espions sur Colonne, Ligne et Valeur : rien ne bouge).

En complément de la réponse de Jacques (que je salue au passage), si tu n'as pas mis ce code dans le module de la feuille concernée, il ne risque pas de se déclencher...
Pour accéder à ce module : Clic droit sur l'onglet de la feuille/visualiser le code.

[unparia]

Bonjour Franck

A Stan_Fr :
Réfléchissons ensemble ("ensemble" signifie "toi également") si tu veux bien . Prêt ? -->>
l'évènement Change d'une feuille n'intervient que lorsque, ayant modifié la valeur d'une cellule, tu la quittes vers une autre ..
Or, que se passe-t-il d'après toi lorsque tu entres dans une autre cellule ? --->> l'évènement SelectionChange se déclenche --->> tes variables "stockées" se modifient
Et on peut tourner ainsi en rond, si l'on ne s'en mêle pas adroitement.
Plusieurs solutions, dont celle-ci -->> exemple --->>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private toto
Private ou As Range
Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Value <> "b" Then '----------------->> ici : tes vérifications à toi, hein ...
     Target.Value = toto
     ou.activate '------>>> en retournant à la cellule concernée, je déclenche le selectionchange et restitue ainsi ce qu'il faut
   end if
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   toto = Target.Value
   Set ou = Target
End Sub

Il va de soi que tu devrais par ailleurs limiter ce genre d' "intervention" aux seules cellules qui le nécessitent (mais je pense que çà, tu sais le faire).