Ajouter une fin à une boucle IF
Excel
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 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
4 réponses
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour,
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-
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?
-
-
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
-
