Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Qui pourrait m'apporter une correction sur un code VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion flight7218
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

flight7218

Guest
Bonjour

j'ai le code vba suivant :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 20 And Target.Row < 56 Then
Cells(Target.Row, 3) = 111189 + Target.Row - 21
End If
End Sub

il permet de générer des numéros sur la colonne C en face de chaque cellule de la colonne B par clique sur une cellule de colonne B

je voudrai reprendre la meme instruction mais cette fois entre les colonnes E et F
j'ai ecris donc le code suivant sur un nouveau module vba de la meme feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 5 And Target.Row > 20 And Target.Row < 56 Then
Cells(Target.Row, 6) = 214189 + Target.Row - 21
End If
End Sub

rien ne se passe , je ne trouve pas mon erreur !

merci d'avance pour toute ceux ou celles qui pourrait m'aiguiller
 
Trier par date Trier par votes
Re : Qui pourrait m'apporter une correction sur un code VBA

Bonjour,

j'ai ecris donc le code suivant sur un nouveau module vba de la meme feuille :
Cliquez pour agrandir...

A noter, dans un même module de feuille, tu ne peux avoir qu'une seule procédure "SelectionChange" :
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : Qui pourrait m'apporter une correction sur un code VBA

Bonjour,

je te conseille de tout mettre dans le meme sub, et normalement ca fonctionne.

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 20 And Target.Row < 56 Then
Cells(Target.Row, 3) = 111189 + Target.Row - 21
End If
If Target.Column = 5 And Target.Row > 20 And Target.Row < 56 Then
Cells(Target.Row, 6) = 214189 + Target.Row - 21
End If
End Sub

Cordialement

Suistrop

Edit : Salut pierrot93!
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Qui pourrait m'apporter une correction sur un code VBA

Bonjour,

Si je comprends bien tu as écrit deux procédures Worksheet_SelectionChange, il ne peut y en avoir qu'une, il faut que tu gères tes deux conditions dans la même.

Pour le reste ..; quand tu postes du code, pourrais-tu utiliser la balise de code (le signe # qui se trouve au dessus de la fenêtre de message), c'est bien plus lisible ! merci à toi 🙂

Bonne journée,

mth

Edit: Hello suistrop, Pierrot 🙂 🙂
Un peu lente mth !!!
bise,
m
 
Vote positif 0 Vote négatif
Re : Qui pourrait m'apporter une correction sur un code VBA

Bonjour flight7218,

Pas bien compris l'énoncé, mais, à priori, tu ne peux avoir 2 macros événementielles sur le même feuille : d'ailleurs tu devrais avoir un message d'erreur ?

Il faut écrire les 2 instructions dans le même événement, soit :

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 20 And Target.Row < 56 Then
  Cells(Target.Row, 3) = 111189 + Target.Row - 21
  Exit Sub
End If
If Target.Column = 5 And Target.Row > 20 And Target.Row < 56 Then
  Cells(Target.Row, 6) = 214189 + Target.Row - 21
End If
End Sub
Espérant avoir répondu.

Cordialement.

Edit : bonjour Pierrot93; suistrop, mth et les autres
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Qui pourrait m'apporter une correction sur un code VBA

Bonjour le fil, bonjour le forum,

Le code ci-dessous doit remplacer le premier:
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 5 Then Exit Sub
If Target.Row < 21 Or Target.Row > 55 Then Exit Sub
Cells(Target.Row, 6) = 214189 + Target.Row - 21
End Sub
Si tu veux combiner les deux :
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row < 21 Or Target.Row > 55 Then Exit Sub
Select Case Target.Column
    Case 2, 5
        Cells(Target.Row, 6) = 214189 + Target.Row - 21
End Select
End Sub

[Édition]
Salut à tous ... J'suis pas en avance...
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Qui pourrait m'apporter une correction sur un code VBA

En tout je tiens à vous remercier infiniment pour vos intervention ! à present ca marche bien 😉
Vous faites un travail d'aide formidable et tres formateur aupres de ceux qui ont besoin de progresser sous excel / vba !
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2019 Modifier ce code pour de sorte à y rajouter un commentaire après clic droit en colonne I (9) à préremplir mais vierge ?
Réponses
8
Affichages
284
anthoYS
  • Résolu(e)
XL 2019 Comment modifier ces codes VB de sorte que le clic droit sur un commentaire présent, permette l'édition et non cette erreur (capture) ?
Réponses
6
Affichages
257
anthoYS
  • Résolu(e)
XL 2019 Adapter ce code, et améliorer le tableau avec graphique à l'année à y insérer ?
Réponses
4
Affichages
489
sylvanu
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
748
un internaute
U
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
457
un internaute
U
  • Résolu(e)
XL 2019 Clic droit en F doit afficher la fenêtre de commentaire, prêt à saisir vierge. Qu'est-ce qui cloche ici ? ça copie...
Réponses
1
Affichages
151
anthoYS
  • Résolu(e)
XL 2019 Insérer un commentaire prêt à saisir de B à X sans limite... (excepté en ligne 1 ; taille de commentaire Ok déjà voir code VB en B*)
Réponses
7
Affichages
266
Nicolas JACQUIN
  • Résolu(e)
XL 2019 Insérer un commentaire après clic droit en X (colonne 24) ?
Réponses
2
Affichages
220
anthoYS
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
339
patricko-13
P
S
  • Résolu(e)
XL 2016 Comment faire ressortir la ligne sélectionnée dans un tableau
Réponses
2
Affichages
687
Stéphane_1
S
S
  • Question Question
Microsoft 365 VBA Action suivant le résultat d'une cellule
Réponses
7
Affichages
317
TooFatBoy
  • Résolu(e)
XL pour MAC Code vba pour recherche sur une seule ligne
Réponses
4
Affichages
185
deudecos
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
483
nabilexcel2007
N
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
797
Phil69970
  • Résolu(e)
Microsoft 365 VBA : Commentaire en B, C, D après clic droit dans n'importe quelle cellule de cette plage ?
2
Réponses
15
Affichages
836
Nicolas JACQUIN
  • Question Question
XL 2016 Renseigner une plage 2 a partir d'une plage 1 selon le mois.
Réponses
4
Affichages
275
KTM
  • Résolu(e)
XL 2016 XLS : comment savoir si un évènement SelectionChange est provoqué par le clavier ou la souris ?
2
Réponses
23
Affichages
898
SAMUAL_2023
S
G
  • Question Question
Autres excel vba cellule aléatoires non vides
Réponses
3
Affichages
200
danielco
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…