Changer de ligne, lors d'une nouvelle UserForm
Résolu/Fermé
xFlo
-
12 févr. 2014 à 22:59
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 14 févr. 2014 à 08:48
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 14 févr. 2014 à 08:48
A voir également:
- Changer de ligne, lors d'une nouvelle UserForm
- Changer dns - Guide
- Darkino nouvelle adresse - Guide
- Darkino : le grand site pirate change d'adresse et d'interface - Accueil - Services en ligne
- Site de vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
Modifié par michel_m le 13/02/2014 à 08:30
Modifié par michel_m le 13/02/2014 à 08:30
Bonjour,
à l'ouverture du 2° userform, il faut indiquer la première ligne; plusieurs manières
ligvide=columns("C").find("*",,,,,xlprevious).row+1
ou s'il n'y a pas de trous dans la colonne C
ligvide=columns("C").find("",range("C1"),xlvalues).row
il y a encore plein d'autre méthodes comme
ligvide = Range("C" & Cells.Rows.Count).End(xlUp).Row + 1
comme tu veux...
Edit:
il faudra certainement déclarer ligvide en variable globale avec
Dim ligvide as integer
avant toute macro dans le code de l'usf
Michel
à l'ouverture du 2° userform, il faut indiquer la première ligne; plusieurs manières
ligvide=columns("C").find("*",,,,,xlprevious).row+1
ou s'il n'y a pas de trous dans la colonne C
ligvide=columns("C").find("",range("C1"),xlvalues).row
il y a encore plein d'autre méthodes comme
ligvide = Range("C" & Cells.Rows.Count).End(xlUp).Row + 1
comme tu veux...
Edit:
il faudra certainement déclarer ligvide en variable globale avec
Dim ligvide as integer
avant toute macro dans le code de l'usf
Michel
13 févr. 2014 à 13:42
Mais étant assez novice dans la matière, j'aimerai avoir un peu plus de précision sur l'endroit ou je doit copier la formule et se que je doit modifier ?
Merci.
13 févr. 2014 à 15:38
par ex en utilisant un bloc
With sheets("machin")
ligvide=.columns("C").find("",.range("C1"),xlvalues).row
attention au points obligatoires devant columns et range
End with
Modifié par xXFlo_xFR le 13/02/2014 à 17:00
J'ai trouvé sur votre site une personne qui avait le même problème :
https://forums.commentcamarche.net/forum/affich-3262392-macro-excel-chercher-premiere-ligne-vide
Mais quand j'essaye le code (en le modifiant en fonction de mon fichier), ça ne fonctionne pas non plus ....
Modifié par michel_m le 13/02/2014 à 17:07
Et si tu lisais plus haut ce qui s'est passé plutôt que de dire "Ça ne fonctionne pas .."
De plus, peut-^tre apprendre ENFIN un peu de politesse
https://www.commentcamarche.net/infos/25855-charte-d-utilisation-de-commentcamarche-net-respect-d-autrui/#politesse
13 févr. 2014 à 17:14
Si cela peut vous aidez, voici mon code que j'ai actuellement :
Private Sub CommandButton1_Click()
Range("C4") = ComboBox1.Value
' Permet d'ouvrir la UserForm2 quand on valide la UserForm1
UserForm1.Hide
UserForm2.Show
End Sub
Private Sub CommandButton2_Click()
' Permet de fermer la userform client
End
End Sub
Et quand j'insère votre code, ça ne fonctionne plus du tout.