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

Condition dans un code VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion gerard55
  • 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
G

gerard55

XLDnaute Occasionnel
Bojour à tous
J'ai un code réalisé avec la contribution du forum qui fonctionne très bien. Cependant, ce code qui extrait des données et les classe dans une feuille "effectif" fait sa recherche dans l'ensemble de la base de donnée ("BD"). Je veux pouvoir mettre une condition en amont pour qu'il ne me prenne pas les personnes dont j'aurai renseigné un critère dans une colonne de la base de données. Je ne vois pas très bien ou et comment mettre cette condition.
Merci d'avance pour votre aide.
Gérard

Ci-joint une partie du code. Il y a plusieurs cherche comme celle-ci.

For Each X In Sheets("BD").Range(Sheets("BD").Range("bs2"), Sheets("BD").Range("cg65536").End(xlUp))
With Sheets("effectif")

Select Case X
Case [g61]
.Range("j5").Offset(0, 0) = X.Offset(0, 0)
.Range("j25").End(xlUp).Offset(1, 1) = X.Offset(0, 14)
.Range("j25").End(xlUp).Offset(1, 0) = X.Offset(0, -69) & " " & X.Offset(0, -68)
Case [g62]
.Range("j26").Offset(0, 0) = X.Offset(0, 0)
.Range("j43").End(xlUp).Offset(1, 1) = X.Offset(0, 14)
.Range("j43").End(xlUp).Offset(1, 0) = X.Offset(0, -69) & " " & X.Offset(0, -68)
Case [g63]
.Range("j44").Offset(0, 0) = X.Offset(0, 0)
.Range("j59").End(xlUp).Offset(1, 1) = X.Offset(0, 14)
.Range("j59").End(xlUp).Offset(1, 0) = X.Offset(0, -69) & " " & X.Offset(0, -68)
End Select
End With
Next
 
Trier par date Trier par votes
Re : Condition dans un code VBA

Bonjour à tous,

Tu es certain qu'il ne manque pas un bout :

For Each X In Sheets("BD").Range(Sheets("BD").Range("bs2"), Sheets("BD").Range("cg65536").End(xlUp))
Cliquez pour agrandir...

Voir avec :

For Each X In Sheets("BD").Range(Sheets("BD").Range("bs2"), Sheets("BD").Range("cg65536").End(xlUp).Row)
Cliquez pour agrandir...

Mais cela ne répond pas à ta demande : je n'ai pas compris la demande. (NONDidiercen'estpasunrestedesCitronsVertsd'hiersoir. Private Joke...)

A+ à tous

Edition : Salut Robert
 
Vote positif 0 Vote négatif
Re : Condition dans un code VBA

Bonjour le fil, bonjour le forum,

Non JCGL, la ligne est correcte (quoique bizarre...)
Code: 
For Each X In Sheets("BD").Range(Sheets("BD").Range("bs2"), Sheets("BD").Range("cg65536").End(xlUp))
'For Each X in Range(Cellule de début, Cellule de fin)
J'aurais plutôt écrit :
Code: 
With Sheets("BD")
     dl = .Cells(Application.Rows.Count, "CG").End(xlUp).Row
     For Each X In .Range("BS2:CG" & dl)
End With
Mais cette ligne est juste...
 
Vote positif 0 Vote négatif
Re : Condition dans un code VBA

Bonjour,
Je suis d'accord avec vous Robert un fichier est le plus simple pour aider à la compréhension. Mais, ce n'est pas évident de réduire ce fichier. Je regarde ce que je peux envoyer qui serait plus explicite
A+
Gérard
 
Vote positif 0 Vote négatif
Re : Condition dans un code VBA

Bonjour le fil, bonjour le forujm,

Gérard, plutôt que d'essayer de réduire ton fichier je te recommande de partir d'un fichier vierge, renommer les onglets comme dans ton original, idem pour d'éventuelles plage nommées, copier les contrôles et le code et juste une poignée de données qui participent à la macro. Normalement, ca devrait le faire...
 
Vote positif 0 Vote négatif
Re : Condition dans un code VBA

Bonjour Robert
Merci de t'intéresser à ma demande. Ci-joint un fichier. Je veux que la macro s'exécute normalement mais, je veux créer une deuxième option où les noms dont les critères (SS ou PS ou FA) sont renseigner dans la colonne Q de la feuille BD ne soient pas pris en compte.
Merci d'avance
a+
Gérard
 

Pièces jointes

Dernière édition:
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

Discussions similaires

M
  • Question Question
Microsoft 365 Récupération des plages nommées des fichiers dans un répertoire
Réponses
8
Affichages
364
dysorthographie
  • Résolu(e)
XL 2019 colorer les différents aliments avec un code VB pour macro de ce genre ?
2
Réponses
16
Affichages
616
anthoYS
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
126
Eric 888
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
484
Electron24
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
A
  • Question Question
insertion d'une ligne automatique dans un tableau excel.
Réponses
1
Affichages
795
sylvanu
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
817
thunder23
A
  • Résolu(e)
Microsoft 365 VBA filtre erreur si pas la condition
Réponses
3
Affichages
409
Ang3lina
A
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
745
patricktoulon
T
  • Question Question
XL 2016 Optimisation d'une boucle
2 3
Réponses
30
Affichages
2 K
thivame
T
F
  • Question Question
Microsoft 365 aide VBA excel
Réponses
4
Affichages
754
Oneida
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
426
Pierreavecunp
P
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
510
job75
  • Question Question
XL 2019 code pour tous les disques
Réponses
3
Affichages
922
AtTheOne
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
932
Zonmé
Z
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
857
Chaton77
  • Résolu(e)
XL 2016 Gestion d'erreur dans code
Réponses
6
Affichages
751
piga25
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…