Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel
Excel Forum d'entraide sur Excel. Vos questions sur les fonctions, formules, manipulations, et tout sujet qui ne trouve pas sa place dans un sous-forum.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 08/01/2011, 13h33   #1
Invité régulier
 
patrick salaun
Inscription : décembre 2010
Messages : 14
Détails du profil
Informations personnelles :
Nom : patrick salaun

Informations forums :
Inscription : décembre 2010
Messages : 14
Points : 5
Points : 5
Par défaut deplacement sur formulaire excel

Bonjours a tous

Alors voilà j’ai un formulaire Excel avec des champs de saisie
En (A2 A4 C2 C4 E2 E4 G2 G4 A7)

Et je voudrais aller directement sur ses cellules dans cet ordre en appuyant sur entrée
Comment faire ?

Merci

Cordialement Patrick
patgravure35 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/01/2011, 13h57   #2
Expert Confirmé Sénior
 
Avatar de casefayere
 
Homme Dominique LEMAIRE
Salarié Champagne
Inscription : décembre 2006
Messages : 2 636
Détails du profil
Informations personnelles :
Nom : Homme Dominique LEMAIRE
Âge : 57
Localisation : France, Ardennes (Champagne Ardenne)

Informations professionnelles :
Activité : Salarié Champagne
Secteur : Agroalimentaire - Agriculture

Informations forums :
Inscription : décembre 2006
Messages : 2 636
Points : 5 075
Points : 5 075
bONJOUR?
Si tu inscris des données dans
A2, avec ce code dans l'évenement de la feuille, ça se passera comme tu le veux :
Code :
1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then Range("A4").Select
If Target.Address = "$A$4" Then Range("C2").Select
If Target.Address = "$C$2" Then Range("C4").Select
If Target.Address = "$C$4" Then Range("E2").Select
If Target.Address = "$E$2" Then Range("E4").Select
If Target.Address = "$E$4" Then Range("G2").Select
If Target.Address = "$G$2" Then Range("G4").Select
If Target.Address = "$G$4" Then Range("A7").Select
End Sub
a+
tu manies le VBA ?
__________________
Dom

De Anomaly
Citation:
N'oubliez pas les points suivants !

Les membres qui vous répondent sont des participants bénévoles !
Quand votre problème est résolu, pensez à cliquer sur le bouton [Résolu] en bas de la discussion !
Pensez à remercier les messages qui vous ont aidé en votant positivement pour eux !
casefayere est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 08/01/2011, 15h14   #3
Invité régulier
 
patrick salaun
Inscription : décembre 2010
Messages : 14
Détails du profil
Informations personnelles :
Nom : patrick salaun

Informations forums :
Inscription : décembre 2010
Messages : 14
Points : 5
Points : 5
Par défaut merci

Bonjour casefayere

Je te remercie pour ton aide j'ai testé et sa marche super

Et je débute dans Excel et en vba mais e trouve sa superbe

Moi qui me cassé la tête avec tous mes tableau
La sa me facilite la vie

Merci encore
patgravure35 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 18h12.


 
 
 
 
Partenaires

Hébergement Web