Ajouter une fin à une boucle IF
Fermé
Excel
-
12 avril 2022 à 12:21
yg_be Messages postés 22783 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 mai 2024 - 13 avril 2022 à 14:51
yg_be Messages postés 22783 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 13 mai 2024 - 13 avril 2022 à 14:51
A voir également:
- Ajouter une fin à une boucle IF
- Ajouter une adresse mail - Guide
- Ajouter une signature sur word - Guide
- Ajouter un profil netflix payant - Guide
- Ajouter une liste déroulante excel - Guide
- Ajouter un compte whatsapp - Guide
4 réponses
yg_be
Messages postés
22783
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 mai 2024
1 481
12 avril 2022 à 13:51
12 avril 2022 à 13:51
bonjour,
qu'as-tu essayé?
sur quelle partie bloques-tu?
une "boucle IF", cela n'existe pas.
qu'as-tu essayé?
sur quelle partie bloques-tu?
une "boucle IF", cela n'existe pas.
Voici ce que j'ai fais, cependant lorsque j'exécute à nouveau ça écris la même chise dans la cellule du dessous :
Dim Colonne As Integer
Dim Mavaleur As Long
Colonne = 2
Mavaleur = 500
If Cells(1, Colonne) = "" Then
' La cellule 1 est vide
Cells(1, Colonne).Select
Else
Cells(Rows.Count, Colonne).End(xlUp).Offset(1, 0).Select
End If
ActiveCell = Mavaleur
End Sub
Dim Colonne As Integer
Dim Mavaleur As Long
Colonne = 2
Mavaleur = 500
If Cells(1, Colonne) = "" Then
' La cellule 1 est vide
Cells(1, Colonne).Select
Else
Cells(Rows.Count, Colonne).End(xlUp).Offset(1, 0).Select
End If
ActiveCell = Mavaleur
End Sub
yg_be
Messages postés
22783
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 mai 2024
1 481
12 avril 2022 à 18:43
12 avril 2022 à 18:43
Merci d'utiliser les balises de code quand tu partages du code:
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Vu le code que tu as écrit, n'est-ce pas normal qu'il écrive la même chose dans la cellule du dessous?
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Vu le code que tu as écrit, n'est-ce pas normal qu'il écrive la même chose dans la cellule du dessous?
Voici en code, Oui c'est normal cependant je n'arrive pas faire ce que je vous ai expliqué ci-dessus
Dim Colonne As Integer Dim Mavaleur As Long Colonne = 2 Mavaleur = 500 If Cells(1, Colonne) = "" Then ' La cellule 1 est vide Cells(1, Colonne).Select Else Cells(Rows.Count, Colonne).End(xlUp).Offset(1, 0).Select End If ActiveCell = Mavaleur End Sub
yg_be
Messages postés
22783
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
13 mai 2024
1 481
13 avril 2022 à 14:51
13 avril 2022 à 14:51
Donne peut-être un exemple de ce que tu veux obtenir, ce n'est pas clair, et ton code ne permet pas de deviner le résultat attendu.
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
13 avril 2022 à 11:23
13 avril 2022 à 11:23
Bonjour,
voir les boucles:
https://www.excel-pratique.com/fr/vba/boucles
voir les boucles:
https://www.excel-pratique.com/fr/vba/boucles