Problème Selction vba
Résolu
Pantxo1986
Messages postés
64
Date d'inscription
Statut
Membre
Dernière intervention
-
Pantxo1986 Messages postés 64 Date d'inscription Statut Membre Dernière intervention -
Pantxo1986 Messages postés 64 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Problème Selction vba
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
- Vba range avec variable ✓ - Forum VB / VBA
17 réponses
Bonjour
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(2, 5).Activate ' cells(ligne,colonne)
End Sub
j'espere que ca ré^ponsd à ta question :)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(2, 5).Activate ' cells(ligne,colonne)
End Sub
j'espere que ca ré^ponsd à ta question :)
En faite je fais ça mais a l'intérieur une fonction dans un module car elle prend en compte des variables globales. Et ça ne marche pas.
Ah ben si tu dis pas tout aussi ;)
donc tu est dans un module, et tu veux sélectionner une cellule (ou plusieurs ??) d'une feuille (ou de la feuille active ??)
donc tu est dans un module, et tu veux sélectionner une cellule (ou plusieurs ??) d'une feuille (ou de la feuille active ??)
C'est vrai que je ne suis pas très precis :)
je voudrais sélectionner deux cellules dans la feuille active
je voudrais sélectionner deux cellules dans la feuille active
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
oui il peut :
ex
public Var1,Var2
sub Masub1()
Var1="A2"
Var2="B3"
MaSub2
end sub
sub MaSub2()
Range(Var1 & ":" & Var1 & "," & Var2 & ":"& Var2).Select
'=>Range("A2:A2,b3:b3").Select
end sub
ex
public Var1,Var2
sub Masub1()
Var1="A2"
Var2="B3"
MaSub2
end sub
sub MaSub2()
Range(Var1 & ":" & Var1 & "," & Var2 & ":"& Var2).Select
'=>Range("A2:A2,b3:b3").Select
end sub
C'est bon en faite j'ai stocké les valeurs dans deux variables a la fin de ma fonction, et j'active la cellule avec les anciennes variables.
Merci quand même. Bonne continuation
Merci quand même. Bonne continuation
donc si je comprend tout...
en a2 on a 3 par ex
l'utilisateur selectionne A4 et tu voudrais changer A2 en 4 par ex et selectionner A6 et b12 ?? bon, j vois pas trop pourquoi mais bon :
dans SelectionChange:
cells(2,1)=4
Range("A6:A6,b12:b12").Select
je pense que ca peut t aider aussi.. (toujours dans le selction_change)
ceci pour savoir quel cellule l'utilisateur à sélectionner : Target.AddressLocal
en a2 on a 3 par ex
l'utilisateur selectionne A4 et tu voudrais changer A2 en 4 par ex et selectionner A6 et b12 ?? bon, j vois pas trop pourquoi mais bon :
dans SelectionChange:
cells(2,1)=4
Range("A6:A6,b12:b12").Select
je pense que ca peut t aider aussi.. (toujours dans le selction_change)
ceci pour savoir quel cellule l'utilisateur à sélectionner : Target.AddressLocal
En faite j'ai 4 cellules (A1 B1 C1 D1), les quatres doivent être rempli pour pouvoir déprotégé la cellule E1, donc je doit vérifier après chaque changement de variable, et le problème c'est que je n'est pas qu'une ligne
Bon, on y arrive :p Faut TOUT me dire.. :)
Je suppose que tu sait comment déprtéger et reprotéger en vba
dans selection_change :
CellEnCours = Target.AddressLocal
LigneEnCours = Right(CellEnCours, 1)
OnPeutPasEcrire = False
For NumCol = 1 To 4
If Cells(LigneEnCours, NumCol) = "" Then OnPeutPasEcrire = True
Next
If OnPeutPasEcrire Then
Cells(LigneEnCours, 5) = "Protect"
'ici ton code pour proteger
Else
Cells(LigneEnCours, 5) = "ok"
'ici ton code pour pour E
End If
Je suppose que tu sait comment déprtéger et reprotéger en vba
dans selection_change :
CellEnCours = Target.AddressLocal
LigneEnCours = Right(CellEnCours, 1)
OnPeutPasEcrire = False
For NumCol = 1 To 4
If Cells(LigneEnCours, NumCol) = "" Then OnPeutPasEcrire = True
Next
If OnPeutPasEcrire Then
Cells(LigneEnCours, 5) = "Protect"
'ici ton code pour proteger
Else
Cells(LigneEnCours, 5) = "ok"
'ici ton code pour pour E
End If
