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 application au démarrage - Guide
- Ajouter une vidéo sur powerpoint - Guide
4 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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
