Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion JJ1
  • 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 !

J

JJ1

Guest
Bonsoir,

J'ai voulu mettre un status bar dans mon code, il fonctionne.
La condition a du être doublée et c'est mon souci:
je n'ai pas pu écrire:

If [U1] = 8 And ([W1] > 1 And [W1] < 4) Then [G1:K1].Copy Range("Y" & Cells(Rows.Count, 25).End(xlUp).Row + 1) And i=i+1

mais avec 2 If
If [U1] = 8 And ([W1] > 1 And [W1] < 4) Then [G1:K1].Copy Range("Y" & Cells(Rows.Count, 25).End(xlUp).Row +1)
If [U1] >= 8 And ([W1] > 1 And [W1] < 4) Then i = i + 1
Application.StatusBar = "résultat = " & i

Comment je peux faire pour avoir la copie et le compteur avec un seul If ?
merci à vous
Bonne soirée
 
Re : Syntaxe VBA

Bonsoir jj1,

Peut-etre comme cela ?

VB:
If [U1] = 8 And ([W1] > 1 And [W1] < 4) Then 
            [G1:K1].Copy Range("Y" & Cells(Rows.Count, 25).End(xlUp).Row +1)
ElseIf [U1] >= 8 And ([W1] > 1 And [W1] < 4) Then
            i = i + 1
            Application.StatusBar = "résultat = " & i
end if

Laurent
 
Dernière édition:
Re : Syntaxe VBA

Bonjour à tous,
Non je n'ai pas testé.
Effectivement le - me faisait douter de l'incrémentation mais vu ta démonstration...logique !
Merci et bon dimanche.
 
- 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éponses
15
Affichages
784
Réponses
5
Affichages
910
Réponses
2
Affichages
467
Réponses
4
Affichages
733
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…