Coordonnées cellule dernière vide

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion tom_the_cat
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

tom_the_cat

Guest
Bonjour à tous,

Il me manque un tout petit truc et après j'aurais finalisé mon projet:

je cherche à donner une coordonnée de la dernière cellule vide. J'ai cette formule en VBA:

Code: 
 .Cells(VIDE, y) = TextBox1 & TextBox2

Quelles est la facon d'écrire "VIDE" dans ce cas la pour qu'il trouve en coordonnée x la première cellule vide qu'il trouve?

Merci beaucoup à tous
 
Trier par date Trier par votes
Re : Coordonnées cellule dernière vide

Rha ca m'énèrve, il manque rien du tout. Je pense que ta solution est la bonne mais que je l'utilise mal.

Voici mon code:

Code: 
If ComboBox1.ListIndex = -1 Then Exit Sub
y = ComboBox1.ListIndex + 2
x = Range("A65536").End(xlUp).Row
.Cells(x, y) = TextBox1 & TextBox2

J'ai essayé de mettre +1, + 2, +9, +100 après le .Row mais ca ne marche pas. L'endroit ou s'inscrit les données change effectivement dans mon tableau mais les données ne s'inscrivent pas dans la première cellule vide trouvée.

Idéalement, j'aurais besoin que les données TextBox1 & TexBox2 s'inscrivent dans la première cellule vide entre les cellules B10 à B109.

Il y a un moyen de faire ca?

Merci pour le coup de main
 
Vote positif 0 Vote négatif
Re : Coordonnées cellule dernière vide

Bonjour le fil 🙂,
tom_the_cat à dit:
Code: 
[COLOR=red][B]y = ComboBox1.ListIndex + 2[/B][/COLOR]
.Cells(x, [COLOR=red][B]y[/B][/COLOR]) = TextBox1 & TextBox2

Idéalement, j'aurais besoin que les données TextBox1 & TexBox2 s'inscrivent dans la première cellule vide entre les cellules B10 à B109.
Cliquez pour agrandir...
Si veux être dans la colonne B, y = 2 😕...
Bonne soirée 😎
 
Vote positif 0 Vote négatif
Re : Coordonnées cellule dernière vide

Eh ben ca ne marche toujours pas malheureusement. Peut-être que tu n'as pas tord JNP, j'ai repris en ancien code et en mettant + 2 ca marchait pour le combobox.

Je vous envoie un fichier exemple ce sera plus simple.

Là ca marche presque mais il ne rentre pas les données saisies à la première case vide.

Merci beaucoup pour votre aide.
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Coordonnées cellule dernière vide

Re 🙂,
Avec un fichier, c'est plus clair 🙄...
Code: 
[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()
[COLOR=blue]With[/COLOR] Sheets("GestionEquipe")
[COLOR=blue]If[/COLOR] ComboBox1.ListIndex = -1 [COLOR=blue]Then Exit Sub[/COLOR]
y = ComboBox1.ListIndex + 2
x = Cells(65346, y).End(xlUp).Row + 1
.Cells(x, y) = TextBox1.Value & " " & TextBox2.Value
 
[COLOR=blue]End With[/COLOR]
[COLOR=green]'    Unload SaisieNouveauNom[/COLOR]
 
 
[COLOR=blue]End Sub[/COLOR]
fonctionnera certainement 😉.
Tu ne cherchais pas la dernière cellule en tenant compte du groupe 😛.
Vu que tu as un bouton Quitter, j'ai ôté le déchargement de l'USF pour pouvoir faire des saisies consécutives 😀.
Bon courage 😎
 
Vote positif 0 Vote négatif
Re : Coordonnées cellule dernière vide

Ah bah ouai, c'était vraiment tout couillon en fait.

Merci beaucoup JPN et Efgé pour le coup de main 😉

Dernière question, est ce que tu crois que c'est faisable d'intégrer un truc du genre, quand tu insères une nouvelle donnée, ensuite tu tris la colone par ordre alphabétique?
 
Vote positif 0 Vote négatif
Re : Coordonnées cellule dernière vide

Re 🙂,
Sans aucun souci 😉.
Tu as vu comment déterminer ta dernière cellule avec ta fonction finemp(). Il te reste juste à faire le tri de ta zone. Pour cela, tu peux enregistrer une macro en faisant le tri et modifier le code pour intégrer ta dernière ligne. Je ne peux malheureusement pas le faire pour toi, je suis en 2007/2010 et le code généré ne sera pas compatible avec 2003 et antérieur, car le tri qui était limité à 3 colonnes ne l'est plus, ceci influant sur le code. Par contre, le code 2003 fonctionne sous 2007/2010 😛.
Si tu n'arrives pas à le modifier, copie le sur le forum, je regarderai 🙄.
Bon courage 😎
 
Vote positif 0 Vote négatif
Re : Coordonnées cellule dernière vide

Bon c'est surement pas très joli mais ca fonctionne 😀

Code: 
Private Sub CommandButton2_Click()
Unload SaisieNouveauNom
End Sub

Private Sub CommandButton1_Click()
With Sheets("GestionEquipe")
If ComboBox1.ListIndex = -1 Then Exit Sub
y = ComboBox1.ListIndex + 2
x = Cells(8, y).End(xlDown).Row + 1
.Cells(x, y) = TextBox1.Value & " " & TextBox2.Value


    Range("B9:B24").Select
    ActiveWorkbook.Worksheets("GestionEquipe").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("GestionEquipe").Sort.SortFields.Add Key:=Range( _
        "B10:B24"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("GestionEquipe").Sort
        .SetRange Range("B9:B24")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
        
            Range("C9:C24").Select
    ActiveWorkbook.Worksheets("GestionEquipe").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("GestionEquipe").Sort.SortFields.Add Key:=Range( _
        "C10:C24"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("GestionEquipe").Sort
        .SetRange Range("C9:C24")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
        
            Range("D9:D24").Select
    ActiveWorkbook.Worksheets("GestionEquipe").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("GestionEquipe").Sort.SortFields.Add Key:=Range( _
        "D10:D24"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("GestionEquipe").Sort
        .SetRange Range("D9:D24")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        
     End With

    Range("E9:E24").Select
    ActiveWorkbook.Worksheets("GestionEquipe").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("GestionEquipe").Sort.SortFields.Add Key:=Range( _
        "E10:E24"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("GestionEquipe").Sort
        .SetRange Range("E9:E24")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
        
        End With
        
            Range("F9:F24").Select
    ActiveWorkbook.Worksheets("GestionEquipe").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("GestionEquipe").Sort.SortFields.Add Key:=Range( _
        "F10:F24"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("GestionEquipe").Sort
        .SetRange Range("F9:F24")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
 
End With
End With

Unload SaisieNouveauNom
SaisieNouveauNom.Show


End Sub

EN fait depuis le temps que j'utilise VBA tu viens de m'apprendre qu'il y avait un enregistreur de macro. Ca simplifie drôlement la vie, moi je me faisais chier à tout écrire manuellement, je galerais a fond.
 
Vote positif 0 Vote négatif
Re : Coordonnées cellule dernière vide

Bonjour tom_the_cat, JNP, le fil, le forum,
Une proposition pour le tri :
Code: 
[COLOR=blue]Private Sub[/COLOR] CommandButton1_Click()
Application.ScreenUpdating = [COLOR=blue]False[/COLOR]
[COLOR=blue]With[/COLOR] Sheets("GestionEquipe")
    [COLOR=blue]If[/COLOR] ComboBox1.ListIndex = -1 [COLOR=blue]Then Exit Sub[/COLOR]
    y = ComboBox1.ListIndex + 2
    x = Cells(8, y).End(xlDown).Row + 1
    .Cells(x, y) = TextBox1.Value & " " & TextBox2.Value
    .Range(Cells(10, y), Cells(x, y)).Sort Key1:=.Cells(10, y), Order1:=xlAscending, Orientation:=xlTopToBottom
   [COLOR=green]'Si la ligne précédente ne passe pas sous 2003, la remplacer par les deux ci dessous[/COLOR]
[COLOR=green]   '.Range(Cells(10, y), Cells(x, y)).Select[/COLOR]
[COLOR=green]   'Selection.Sort Key1:=.Cells(10, y), Order1:=xlAscending, Orientation:=xlTopToBottom[/COLOR]
    .Cells(9, y).Select
[COLOR=blue]End With[/COLOR]
Application.ScreenUpdating = [COLOR=blue]True[/COLOR]
Unload SaisieNouveauNom
SaisieNouveauNom.Show
[COLOR=blue]End Sub[/COLOR]
Cordialement
 
Vote positif 0 Vote négatif
Re : Coordonnées cellule dernière vide

Un peu plus joli en effet.

Par contre j'ai un problème, pas avec le tri qui fonctionne très bien mais avec la selection de la première cellule non vide.

J'ai recopié le code d'exemple dans mon fichier final en l'adaptant mais pour cette partie du code:

Code: 
    x = Cells(8, y).End(xlDown).Row + 1
    .Cells(x, y) = TextBox1.Value & " " & TextBox2.Value

Il ne trouve pas le première cellule vide pour x de la colonne déterminée en y par le combobox mais il trouve 65537, ce qui me donne une erreur évidement. Donc c'est comme s'il ne s'arrêtait pas à la première cellule vide qu'il trouve mais qu'il allait jusqu'en bas et ensuite qu'il ajoute +1.

Ce que je ne comprends pas c'est que ca fonctionne dans mon fichier de test que je vous ai envoyé mais quand je l'adapte a ma version finale c'est 2 lignes de code ne fonctionnent pas.

Avez-vous une idée de la raison? Il y a t-il un autre moyen d'écrire ca?

Merci beaucoup
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Question Question
Microsoft 365 Chercher dernière valeur d'une ligne mais avec une particularité
Réponses
4
Affichages
334
Marie.
M
ARRU
  • Résolu(e)
XL 2021 Soucis d’effacement dans ma colonne AE
2
Réponses
24
Affichages
842
ARRU
ARRU
S
  • Question Question
XL 2016 Caractère fantôme invisible dans cellule vide non vide.
Réponses
5
Affichages
644
SurfingJoe
S
DenisHen
  • Résolu(e)
Microsoft 365 Comment supprimer un espace entre deux chiffres ?
2
Réponses
18
Affichages
785
Staple1600
Staple1600
AlCapone
  • Résolu(e)
Microsoft 365 VBA - BeforeDoubleClick, 1ère cellule vide à partir de cellule active pour insertion de ligne
Réponses
4
Affichages
439
AlCapone
AlCapone
Usine à gaz
  • Résolu(e)
XL 2021 Cellule vide : sélectionner et atteindre
2
Réponses
15
Affichages
1 K
Usine à gaz
Usine à gaz
S
  • Résolu(e)
XL 2019 Problème de remplissage cellule en vba
Réponses
5
Affichages
606
snoopy07
S
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
873
escudo
E
Lynattendu
  • Question Question
XL 2010 mon problème c'est : qu'une cellule avec une fonction = cellule non vide
Réponses
3
Affichages
1 K
Lynattendu
Lynattendu
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
818
KRUG WOO
K
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
645
safranien
S
G
  • Question Question
XL 2013 Problème de priorité dans une formule de SI et STXT imbriquée
Réponses
8
Affichages
585
Gmndrt
G
jeff1494
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
1 K
jeff1494
jeff1494
M
  • Question Question
Microsoft 365 En tete de column premiere valeur nulle (avec critère)
Réponses
5
Affichages
774
sylvanu
sylvanu
Lu76Fer
  • Résolu(e)
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
846
Lu76Fer
Lu76Fer
Usine à gaz
  • Question Question
XL 2019 Target ne s'exécute pas si je valide ma cellule vide
Réponses
5
Affichages
937
patricktoulon
patricktoulon
jeff1494
  • Question Question
XL 2021 Orientation d'une image dans le commentaire d'une cellule
2 3
Réponses
42
Affichages
3 K
AtTheOne
AtTheOne
L
  • Question Question
Microsoft 365 Report de valeur d'une cellule dans une autre cellule en fonction de la dernière cellule non vide d'une ligne
Réponses
1
Affichages
1 K
sylvanu
sylvanu
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
1 K
Dégé59
D
D
  • Question Question
Microsoft 365 Si une cellule est vide faire ressortie la valeur d'une autre cellule
2
Réponses
16
Affichages
2 K
job75
job75
Retour