Excel Downloads
Forum

Précédent   Excel Downloads Forums > Archives > Forum Excel Downloads - Archives


 
 
LinkBack Outils de la discussion
Vieux 02/01/2005, 11h58   #1 (permalink)
aubelix
Guest
 
Messages: n/a
Par défaut Delacement après un choix dans une Liste de Validation


Bonjour à tous.
Je finalise mon projet grâce à votre précieuse aide.
Ma question est la suivante :

Comment faire pour se déplacer d'une colonne à droite du choix effectué dans une liste de validation et ce par macro.
(Voir fichier joint).
Bon dimanche à tous.
Merci pour votre aide.















Fichiers attachés
Type de fichier : zip Delacement_apres_saisie_dans_Liste_Validation.zip (4,7 Ko, 3 affichages)
 
ANNONCES
Vieux 02/01/2005, 12h38   #2 (permalink)
tatiak
Guest
 
Messages: n/a
Par défaut Re: Delacement après un choix dans une Liste de Validation

Bonjour Aubelix

Place cette macro dans le code de la feuille:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Cells(Target.Row, Target.Column + 1).Activate
End Sub
 
Vieux 02/01/2005, 14h26   #3 (permalink)
aubelix
Guest
 
Messages: n/a
Par défaut Re: Delacement après un choix dans une Liste de Validation

Bonjour Tatiak et le forum
Merci pour ta réponse.

J'avais déjà le code ci-dessous dans le code de la feuille.
Comment l'ajouter sans avoir de message d'erreur ?
Pour info, la liste de validattion se trouve dans la colonne 9

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 4 Then
If Mid(Target.Value, 1, 1) = "+" Then
Cells(Target.Row, 7).Activate
Else
Cells(Target.Row, 5).Activate
End If
End If

End Sub
 
Vieux 02/01/2005, 14h46   #4 (permalink)
aubelix
Guest
 
Messages: n/a
Par défaut Re: Delacement après un choix dans une Liste de Validation

Merci pour tes réponses.
Où avais-je la tête ?
De jour en jour, je me perfectionne grâce à votre aide à tous
Mille mercis encore.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 9 Then
Cells(Target.Row, Target.Column + 1).Activate
Else

If Target.Column = 4 Then
If Mid(Target.Value, 1, 1) = "+" Then
Cells(Target.Row, 7).Activate
Else
Cells(Target.Row, 5).Activate

End If
End If
End If

End Sub
 
ANNONCES
 

Liens sociaux

Outils de la discussion

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are oui
Pingbacks are oui
Refbacks are oui


Fuseau horaire GMT +2. Il est actuellement 21h09.


(C) 2006 Excel Downloads