Ajouter une fin à une boucle IF
Excel
-
yg_be Messages postés 24281 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 24281 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je souhaite ajouter un texte dans une cellule d'un tableau (de la ligne 1 à 10),
Cependant, je dois écrire dans la première ligne vide de ce tableau,
et si une cellule contient déjà ce texte, la cellule à côté doit s'incrémenter de +1
Merci d'avance pour votre aide, je début et me perds un peu
Je souhaite ajouter un texte dans une cellule d'un tableau (de la ligne 1 à 10),
Cependant, je dois écrire dans la première ligne vide de ce tableau,
et si une cellule contient déjà ce texte, la cellule à côté doit s'incrémenter de +1
Merci d'avance pour votre aide, je début et me perds un peu
Configuration: Windows / Firefox 91.0
A voir également:
- Ajouter une fin à une boucle IF
- Fin des zfe - Guide
- Ajouter une signature sur word - Guide
- Ajouter une liste déroulante excel - Guide
- Ajouter une vidéo sur powerpoint - Guide
- Ajouter à l'écran d'accueil iphone - Guide
4 réponses
yg_be
Messages postés
24281
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 585
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
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
