Discussion :

[DenisHen]

Bonjour à tous,

Voilà, j'ai un problème avec mes variables...

J'ai, par exemple, une cellule nommée "SaisieZNC" qui contient une valeur. J'ai aussi une variable qui s'appelle "SaisieZNC". J'aimerai que la variable "SaisieZNC" contienne la valeur de la cellule nommée "SaisieZNC"

Si quelqu'un a une astuce ou un conseil... Je suis preneur...

Denis...

[Igloobel]

Bonjour,

c'est franchement dangereux moi j'appellerais ma variable ou ma cellule "Saisie_ZNC"
sinon
si tu as l'adresse de la cellule

Code :

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

SaisieZNC=cells(N°ligne, N°colonne).value

A+

[DenisHen]

Bonjour Igloobel, et merci de me répondre.

Mon problème est que j'ai une centaine de cellule que je dois surveiller et je ne sais pas quelle cellule vient d'être éditer...

Je m'explique :

J'ai, dans mon code, le nom de la cellule (et son contenu) AVANT son édition. j'aimerais juste comparer le contenu de la variable qui porte le nom de cette cellule avec le nouveau contenu de cette même cellule...

C'est un peu compliqué de l'expliquer autrement, en tous cas, je ne vois pas...

En fait, j'ai ça (je ne surveille que les 16 premières lignes) :

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
17
18
19
Private Sub Worksheet_Change(ByVal Target As Range)
    If ActiveCell.Row < 16 Then
        'C'est ici que j'aimerais comparer les deux valeurs, dont une contenu dans une variable qui porte le nom de la cellule,
        'Il faudrait intéroger le contenu de la variable qui porte le nom de "ZNCSaveNomCel" pour la comparaison...
    End If
 
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    NomCellule = ""
    On Error Resume Next
    NomCellule = ActiveCell.Name.Name
    If NomCellule <> "" Then
        MsgBox ActiveCell.Name.Name
        ZNCSaveValue = ActiveCell.Value
        ZNCSaveNomCel = ActiveCell.Name.Name
    End If
.....
.....
.....

Voilà pourquoi j'ai des cellules et des variables qui portent le même nom... Mais en quoi ça peut-il être dangereux ? Pour écrire le code sans confondre ou pour son exécution ?

Je sais que c'est un peu confus, mais je ne vois pas comment faire autrement...

Merci pour l'aide.

Denis

[DenisHen]

Après plusieurs essais et vaines tentatives...

Je m'aperçois que je ne peut connaitre le contenu d'une cellule après sa "validation"

J'ai utilisé la valeur du "Target" qui me donne le contenu de la cellule AVANT modification...

Mais j'ai un peu de mal à mettre tous ça en œuvre...

[Docmarti]

Bonjour.

Habituellement, on se sert de Intersect. Comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("SaisieZNC")) Is Nothing Then
 
  If SaisieZNC <> Target.Value Then
   Stop
  End If
 
  End If
End Sub