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

VBA - IF, ELSEIF, AND, And Not, ELSE

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

debidebo67

Guest
Bonjour,

l'écriture du code VBA est accepté mais les résultats ne sont pas les bons, pourtant j'ai beau relire ça me parait juste. c'est comme s'il ne prend pas en compte certains ElseIf !?!
comme ça ne marche pas je pense que la manière de l'écrire n'est pas la bonne !

pourriez-vous m'aider SVP ?


Sub essaimacroboucle()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim i As Integer
Worksheets("tableau 1").Range("P5😛1000").ClearContents


For i = 5 To 1000

'tous remli
If Cells(i, 6) & Cells(i, 7) & Cells(i, 8) & Cells(i, 9) = "" Then
Cells(i, 16).Value = ""


'manque 1
ElseIf (Cells(i, 8) = "") And Not (Cells(i, 6) & Cells(i, 7) & Cells(i, 9) = "") Then
Cells(i, 16).Value = Cells(i, 6) & " - " & Cells(i, 7) & " - " & Cells(i, 9)

ElseIf (Cells(i, 7) = "") And Not (Cells(i, 6) & Cells(i, 8) & Cells(i, 9) = "") Then
Cells(i, 16).Value = Cells(i, 6) & " - " & Cells(i, 8) & " - " & Cells(i, 9)

ElseIf (Cells(i, 9) = "") And Not (Cells(i, 6) & Cells(i, 7) & Cells(i, 8) = "") Then
Cells(i, 16).Value = Cells(i, 6) & " - " & Cells(i, 7) & " - " & Cells(i, 8)

'manque 2
ElseIf (Cells(i, 8) = "") And (Cells(i, 9) = "") And Not (Cells(i, 6) & Cells(i, 7) = "") Then
Cells(i, 16).Value = Cells(i, 6) & " - " & Cells(i, 7)

ElseIf (Cells(i, 7) = "") And (Cells(i, 8) = "") And Not (Cells(i, 6) & Cells(i, 9) = "") Then
Cells(i, 16).Value = Cells(i, 6) & " - " & Cells(i, 9)

'manque 3
ElseIf (Cells(i, 7) & Cells(i, 8) & Cells(i, 9) = "") And Not (Cells(i, 6) = "") Then
Cells(i, 16).Value = Cells(i, 6)


'sinon rien
Else
Cells(i, 16).Value = Cells(i, 6) & " - " & Cells(i, 7) & " - " & Cells(i, 8) & " - " & Cells(i, 9)
End If
Next i

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub
 

Pièces jointes

Trier par date Trier par votes
Re : VBA - IF, ELSEIF, AND, And Not, ELSE

Bonjour,

pas ouvert ton fichier mais à priori ceci n'est pas correct :
Code: 
ElseIf (Cells(i, 8) = "") And Not (Cells(i, 6) & Cells(i, 7) & Cells(i, 9) = "") Then

je coderais plutôt ainsi :
Code: 
ElseIf (Cells(i, 8) = "") And Not Cells(i, 6)="" And Not  Cells(i, 7) ="" And Not  Cells(i, 9) = "" Then

A voir...

bonne journée
@+
 
Vote positif 0 Vote négatif
Re : VBA - IF, ELSEIF, AND, And Not, ELSE

Bonjour,

Pourquoi ne pas faire simple avec une fonction ( module 3 ) !

Code: 
Function Concat(chaîne1, ParamArray chaîne2())
' fonction à nombre d'arguments indéfini
Dim Arg As Variant
' traitement du premier argument
Concat = chaîne1
' traitement des éventuels autres arguments
If UBound(chaîne2) <> -1 Then
 For Arg = LBound(chaîne2) To UBound(chaîne2)
  Concat = Concat & " " & chaîne2(Arg)
 Next Arg
End If
End Function

Bonne journée
 

Pièces jointes

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)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
484
Electron24
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
910
TooFatBoy
N
  • Question Question
XL 2010 fichier généré par IA ne fonctionne pas ( RESOLU )
2
Réponses
16
Affichages
896
n_turf
N
P
  • Résolu(e)
Microsoft 365 VBA - Survol d'un Label déclenchement action
Réponses
8
Affichages
332
patricko-13
P
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
479
nabilexcel2007
N
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
819
KRUG WOO
K
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
  • Résolu(e)
XL 2021 And/Or dans If
Réponses
3
Affichages
461
thunder23
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
1 K
laurent950
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
733
kiki29
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
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
L
  • Question Question
Microsoft 365 Erreur automation 440 sur code VBA
Réponses
1
Affichages
396
job75
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
452
CDALE
C
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
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
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…