Discussion :

[Néroxi]

Bonjour,

Je poste se message car je me retrouve bloqué:
Contexte: J'ai un tableau excel qui contient sur la feuil1, en tête des colonnes (C2,D2,E2...) des noms de projets, et sur les lignes des n° de gamme propre à tou les projets (C4,C5,C6,...). Je souhaite que quand l'utilisateur appuis sur ENTER pour modifier une valeur de la Feuil1 le nom de projet de la colonne concerné soit récupéré, et récupérer le n° de gamme de la ligne concerné.

Problématique: Quand l'utilisateur appuie sur entrer la cellule active fait +1, et je repère les coordonnées de cette cellule, mais pas de celle qui vient d'être modifié.

Please help me !

[Menhir]

Je souhaite que quand l'utilisateur appuis sur ENTER pour modifier une valeur de la Feuil1

Tu veux parle de la modification des lignes 2 et 4 ?

le nom de projet de la colonne concerné soit récupéré, et récupérer le n° de gamme de la ligne concerné.

Qu'il soit récupéré dans quoi ?

Problématique: Quand l'utilisateur appuie sur entrer la cellule active fait +1, et je repère les coordonnées de cette cellule, mais pas de celle qui vient d'être modifié.

Comment "repères"-tu ces coordonnées ? Avec une macro Change ?

[Néroxi]

Tu veux parle de la modification des lignes 2 et 4 ?

Non, l'utilisateur peut modifier les valeurs de D4 à AF41

Qu'il soit récupéré dans quoi ?

Dans un objet ou variable afin de les stocker

Comment "repères"-tu ces coordonnées ? Avec une macro Change ?

Et bien justement je n'y arrive pas j'ai testé: Feil1.Cells(Target.Row - 1, ActiveCell.Column).Select
mais rien n'y fait je ne trouve pas

[Menhir]

Je ne parviens pas à comprendre le principe de ce que tu veux créer.
Tu parles de macro et de saisie opérateur dans une cellule. Il est rare que les deux aillent ensemble, à moins que la saisie se fasse "hors macro" et que ce soit elle qui déclenche une macro évènementielle comme Worksheet_Change.

Mais dans ce cas, je ne vois pas l'intérêt de mettre cette information dans une variable qui aura comme durée de vie le temps de la macro, c'est-à-dire une fraction de secondes.

Mais voici le principe :

Code :

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

1
2
3
4
Private Sub Worksheet_Change(ByVal Target as Range) 
    Dim MaPosition As Range
    Set MaPosition = Target
End Sub

Il serait préférable que tu expliques dans quel contexte tu veux récupérer cette valeur et ce que tu comptes en faire (il est difficile d'imaginer que le mettre dans une variable soit la finalité).

[Néroxi]

Quand l'utilisateur modifie une valeur dans L’intervalle D4:AF42 :
1) je dois récupérer les valeurs des cellules Cx et Bx (x étant la ligne modifier donc une variable aléatoire indiquée par l'utilisateur)
2) je dois récupérer la valeur de projet y2 (y étant la colonne modifier donc une variable aléatoire indiquée par l'utilisateur)
3) Ces trois valeurs sont collées en feuil2 sur deux colonnes différentes

code actuel:

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
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("D4:AF42")) Is Nothing Then
        Dim Rep As Integer 'création d'objet qui va enregistrer le clique du bouton sur la MsgBox
        Rep = MsgBox("Avez-vous modifié une valeur ?" _
            & Chr(10) + Chr(10) + Chr(13) & "Cliquer sur ok pour continuer !", vbQuestion + vbYesNo + vbSystemModal, "Modification")
        If Rep = vbYes Then
 
             'récupération des data
 
        End If
    Else
 
    End If
 
End Sub

[BENNASR]

si j'ai compris la demande tu cherches a savoir le nom de projet en ligne 2 et le numéro de gamme en colonne C
si c'est le cas je propose un clic droite du souris avec le code suivant :

Code :

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

1
2
3
4
5
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
L = ActiveCell.Row
C = ActiveCell.Column
MsgBox ("Le projet  est : " & Cells(2, C) & "   la Gamme est :  " & Cells(L, 3))
End Sub

voila un exemple (CLIC DROITE SOURIS )