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

Problème fonction If vba excel

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

avyrex1926

Guest
Bonjour à tous,

Dans ce code:
Code: 
Dim i As Long, Cumlig As Long, Jour As String, ColJour As Range
Dim cel As Range, PlageTest, z

Sheets("Trancheur").Rows("3:1000").Delete
    'Première ligne d'affichage dans la feuille "Cumul de l'employé"
With Sheets(ComboBox13.Text)
    Cumlig = 3
    Jour = ComboBox14
    'Boucle à partir de la ligne 6 dans la feuille "Base de donnée"
    Set ColJour = .Range("E65536:Q65536").Find(Jour, LookIn:=xlValues)
    If Not ColJour Is Nothing Then
        For i = 6 To .Range("A" & Cells.Rows.Count).End(xlUp).Row
        'Si la valeur de la colonne A correspond au nom sélectionné
            If .Cells(i, 1) <> "" And .Cells(i, ColJour.Column) <> "" And .Cells(i, ColJour.Column) <> "0" And .Cells(i, ColJour.Column) <> "REGULIER" And .Cells(i, ColJour.Column) <> "VACANCE" And .Cells(i, ColJour.Column) <> "1JR_CSST" And .Cells(i, ColJour.Column) <> "ABS_M_NP" And .Cells(i, ColJour.Column) <> "ABS_NP" And .Cells(i, ColJour.Column) <> "ABS_M_NP" And .Cells(i, ColJour.Column) <> "ACC_CSST" And .Cells(i, ColJour.Column) <> "ACC_H_T" And .Cells(i, ColJour.Column) <> "ACT_GRACE" Then

                       
                'Copier les valeurs
                Sheets("Trancheur").Cells(Cumlig, 1).Value = .Cells(i, 1).Value
                Sheets("Trancheur").Cells(Cumlig, 2).Value = .Cells(i, 2).Value
                Sheets("Trancheur").Cells(Cumlig, 5).Value = .Cells(i, ColJour.Column).Value
                Sheets("Trancheur").Cells(Cumlig, 6).Value = .Cells(i + 1, ColJour.Column).Value
            'Ligne suivante pour l'affichage
            Cumlig = Cumlig + 1
            End If
            
        Next i
   
     End If
    Sheets("Trancheur").Range("E2") = Jour
End With

Je veux simplifier cette partie:
Code: 
            If .Cells(i, 1) <> "" And .Cells(i, ColJour.Column) <> "" And .Cells(i, ColJour.Column) <> "0" And .Cells(i, ColJour.Column) <> "REGULIER" And .Cells(i, ColJour.Column) <> "VACANCE" And .Cells(i, ColJour.Column) <> "1JR_CSST" And .Cells(i, ColJour.Column) <> "ABS_M_NP" And .Cells(i, ColJour.Column) <> "ABS_NP" And .Cells(i, ColJour.Column) <> "ABS_M_NP" And .Cells(i, ColJour.Column) <> "ACC_CSST" And .Cells(i, ColJour.Column) <> "ACC_H_T" And .Cells(i, ColJour.Column) <> "ACT_GRACE" Then

Toute les résultats sont maintenant inscrit dans la feuille "Base de données" range ("O2:O50").

Comment modifier cette partie du code s.v.p.

Merci pour votre aide.
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Problème fonction If vba excel

Bonjour avyrex1926,

J'ai bien vu le code à simplifier.

que veux tu dire par :

Toute les résultats sont maintenant inscrit dans la feuille "Base de données" range ("O2:O50")
Cliquez pour agrandir...

??

que toutes les valeurs à tester ("", "0", "VACANCE", "REGULIER", ...) ont été mises de O2 à O50 ?

si c'est ça, peut être :

Code: 
If .Cells(i, 1).value <> "" And Application.worksheetfunction.countif(sheets("Base de données").range("O2:O50"), .Cells(i, ColJour.Column).value) = 0 Then
 
Vote positif 0 Vote négatif
Re : Problème fonction If vba excel

Pas toute à fait.

Code: 
If .Cells(i, 1) <> "" And .Cells(i, ColJour.Column) <> "" And .Cells(i, ColJour.Column) <> "0" And .Cells(i, ColJour.Column) <> "REGULIER" And .Cells(i, ColJour.Column) <> "VACANCE" And .Cells(i, ColJour.Column) <> "1JR_CSST" And .Cells(i, ColJour.Column) <> "ABS_M_NP" And .Cells(i, ColJour.Column) <> "ABS_NP" And .Cells(i, ColJour.Column) <> "ABS_M_NP" And .Cells(i, ColJour.Column) <> "ACC_CSST" And .Cells(i, ColJour.Column) <> "ACC_H_T" And .Cells(i, ColJour.Column) <> "ACT_GRACE" Then

Au lieu d'ajouter And .Cells(i, ColJour.Column) <> "REGULIER" , And .Cells(i, ColJour.Column) <> "VACANCE" , Dans la feuille base de données dans la colonne O, ce trouve tous le mots concerné: REGULIER, VACANCE ETC...
 
Vote positif 0 Vote négatif
Re : Problème fonction If vba excel

j'AI modifié pour:

If .Cells(i, 1) <> "" And .Cells(i, ColJour.Column) <> "" And Application.worksheetfunction.countif(sheets("Base de données").range("O2:O50"), .Cells(i, ColJour.Column).value) = 0 Then

et ça fonctionne.

Merci pour ton aide
 
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

F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
927
TooFatBoy
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
493
Electron24
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
496
nabilexcel2007
N
  • Question Question
XL 2021 Réduction temps d'exécution boucle macro
Réponses
11
Affichages
568
TooFatBoy
  • Question Question
XL 2019 Prénoms à souhaiter
2
Réponses
15
Affichages
818
lynyrd
P
  • Question Question
Microsoft 365 VBA et Segments TCD
Réponses
2
Affichages
529
patricko-13
P
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
574
Abi23
A
  • Question Question
Microsoft 365 VBA ADODB doublons
Réponses
1
Affichages
326
dysorthographie
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
742
kiki29
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
621
un internaute
U
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
1 K
VBA_dev_Anne_Marie
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
837
KRUG WOO
K
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
1 K
Mody200
M
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
I
  • Résolu(e)
XL 2021 msgbox : timer vbyes
2 3
Réponses
40
Affichages
2 K
isandre
I
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
442
AlCapone
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
834
patricktoulon
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
463
CDALE
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…