Atteindre cellule vide d'une ligne
jacqtiti
Messages postés
6
Date d'inscription
samedi 25 juin 2005
Statut
Membre
Dernière intervention
22 décembre 2005
-
11 déc. 2005 à 19:14
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 12 déc. 2005 à 00:33
jpleroisse Messages postés 1788 Date d'inscription mardi 7 novembre 2000 Statut Membre Dernière intervention 11 mars 2006 - 12 déc. 2005 à 00:33
A voir également:
- Atteindre cellule vide d'une ligne
- Vba test cellule vide ✓ - Forum Visual Basic
- Derniere ligne non vide vba ✓ - Forum Visual Basic 6
- Selectionner la derniere cellule non vide d'une colonne excel vba ✓ - Forum VB.NET
- Test d'une cellule vide ... ? ✓ - Forum Visual Basic
- Vba couleur cellule - Forum Visual Basic 6
4 réponses
FMatrix07
Messages postés
233
Date d'inscription
mercredi 26 février 2003
Statut
Membre
Dernière intervention
21 février 2009
2
11 déc. 2005 à 19:29
11 déc. 2005 à 19:29
pour cherche la cellule vide
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
FMatrix07
Messages postés
233
Date d'inscription
mercredi 26 février 2003
Statut
Membre
Dernière intervention
21 février 2009
2
11 déc. 2005 à 19:52
11 déc. 2005 à 19:52
pour faire ce que tu demande fais
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
ActiveCell.FormulaR1C1 = InputBox("saisi valeur")
Cells(ActiveCell.Row + 1, ActiveCell.Column).FormulaR1C1 = InputBox("saisi valeur")
Cells.Find(What:="", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
ActiveCell.FormulaR1C1 = InputBox("saisi valeur")
Cells(ActiveCell.Row + 1, ActiveCell.Column).FormulaR1C1 = InputBox("saisi valeur")
jacqtiti
Messages postés
6
Date d'inscription
samedi 25 juin 2005
Statut
Membre
Dernière intervention
22 décembre 2005
11 déc. 2005 à 22:02
11 déc. 2005 à 22:02
Bonsoir FMatrix07,
Ok pour ta solution, le hic c'est que à l'ouverture le focus se place
sur la cellule libre de la ligne précédement renseignée avant fermeture
de l'onglet.
Pour mon application, il faudrait limiter sur la ligne L11.
Merci d'avance.
Ok pour ta solution, le hic c'est que à l'ouverture le focus se place
sur la cellule libre de la ligne précédement renseignée avant fermeture
de l'onglet.
Pour mon application, il faudrait limiter sur la ligne L11.
Merci d'avance.
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
12 déc. 2005 à 00:33
12 déc. 2005 à 00:33
Bonsoir,
La méthode InputBox, ne me semble pas appropriée à ce que tu veux
faire, utilise plutôt un UserForm avec un CommondButton et un TextBox.
Private Sub CommandButton1_Click()
Dim En_Colone, En_Ligne
Range("L11").Select
En_Colone = ActiveCell.Column
En_Ligne = ActiveCell.Row + 1
While Not IsEmpty(ActiveCell.Value)
Cells(En_Ligne, En_Colone).Activate
En_Ligne = En_Ligne + 1
Wend
ActiveCell.Offset(0, 0).Range("A1").Select
ActiveCell.Value = UserForm1.TextBox1
'Remet le contrôle TextBox à vide pour une nouvelle donnée.
UserForm1.TextBox1 = ""
UserForm1.TextBox1.SetFocus
End Sub
jpleroisse
Si une réponse vous convient, cliquez réponse Acceptée.
La méthode InputBox, ne me semble pas appropriée à ce que tu veux
faire, utilise plutôt un UserForm avec un CommondButton et un TextBox.
Private Sub CommandButton1_Click()
Dim En_Colone, En_Ligne
Range("L11").Select
En_Colone = ActiveCell.Column
En_Ligne = ActiveCell.Row + 1
While Not IsEmpty(ActiveCell.Value)
Cells(En_Ligne, En_Colone).Activate
En_Ligne = En_Ligne + 1
Wend
ActiveCell.Offset(0, 0).Range("A1").Select
ActiveCell.Value = UserForm1.TextBox1
'Remet le contrôle TextBox à vide pour une nouvelle donnée.
UserForm1.TextBox1 = ""
UserForm1.TextBox1.SetFocus
End Sub
jpleroisse
Si une réponse vous convient, cliquez réponse Acceptée.