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
Jacky
Bonjour,
Ceci peut-être: '--------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Je souhaite savoir combien de ligne sépare la cellule (4,3) de 'la cellule (1,1) x = Selection.Columns.Column - 1 y = Selection.Row - 1 MsgBox x & " Colonne(s) me sépare de la première" & Chr(10) & y & " Ligne(s ) _ me sépare de la première" 'Si je suis sur une cellule x de la feuille, je veux activer la 'cellule(1,1) 'ici cellule xµ If Target.Address = "$B$5" Then [a1].Select End Sub '---------* Salutations JJ
"Spectre" a écrit dans le message de news: Bonjour
J'ai besoin de calculer le nombre de rangées séparant deux cellules : ex
j'ai une cellule ( 1,1) Je souhaite savoir combien de ligne sépare la cellule (4,3) de la cellule (1,1)
autre question :
Si je suis sur une cellule x de la feuille, je veux activer la cellule (1,1) (dim RefCell)
j'ai essayé activecell= ReFcell.activate, mais ça ne marche pas.
Que faire?
Pas trés compliqué, certainement....
Merci d'avance
Bonjour,
Ceci peut-être:
'---------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Je souhaite savoir combien de ligne sépare la cellule (4,3) de
'la cellule (1,1)
x = Selection.Columns.Column - 1
y = Selection.Row - 1
MsgBox x & " Colonne(s) me sépare de la première" & Chr(10) & y & "
Ligne(s ) _
me sépare de la première"
'Si je suis sur une cellule x de la feuille, je veux activer la
'cellule(1,1)
'ici cellule xµ
If Target.Address = "$B$5" Then [a1].Select
End Sub
'---------*
Salutations
JJ
"Spectre" <propedeutique@yahoo.fr> a écrit dans le message de
news:1133443010.835338.117640@o13g2000cwo.googlegroups.com...
Bonjour
J'ai besoin de calculer le nombre de rangées séparant deux cellules :
ex
j'ai une cellule ( 1,1)
Je souhaite savoir combien de ligne sépare la cellule (4,3) de la
cellule (1,1)
autre question :
Si je suis sur une cellule x de la feuille, je veux activer la cellule
(1,1) (dim RefCell)
j'ai essayé activecell= ReFcell.activate, mais ça ne marche pas.
Ceci peut-être: '--------- Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'Je souhaite savoir combien de ligne sépare la cellule (4,3) de 'la cellule (1,1) x = Selection.Columns.Column - 1 y = Selection.Row - 1 MsgBox x & " Colonne(s) me sépare de la première" & Chr(10) & y & " Ligne(s ) _ me sépare de la première" 'Si je suis sur une cellule x de la feuille, je veux activer la 'cellule(1,1) 'ici cellule xµ If Target.Address = "$B$5" Then [a1].Select End Sub '---------* Salutations JJ
"Spectre" a écrit dans le message de news: Bonjour
J'ai besoin de calculer le nombre de rangées séparant deux cellules : ex
j'ai une cellule ( 1,1) Je souhaite savoir combien de ligne sépare la cellule (4,3) de la cellule (1,1)
autre question :
Si je suis sur une cellule x de la feuille, je veux activer la cellule (1,1) (dim RefCell)
j'ai essayé activecell= ReFcell.activate, mais ça ne marche pas.