Macro

Fermé
Scalpa31_1966 Messages postés 5 Date d'inscription lundi 21 décembre 2020 Statut Membre Dernière intervention 22 août 2021 - Modifié le 21 déc. 2020 à 08:19
franc38 Messages postés 197 Date d'inscription mercredi 23 avril 2008 Statut Membre Dernière intervention 27 février 2023 - 22 déc. 2020 à 13:35
Dans un fichier EXCEL-2013, il y a un tableau avec beaucoup de lignes.
J’écris une Macro dans laquelle :
1)- Il y a une variable « Finligne ».
2)- Dans laquelle se stocke le nombre de ligne.
3)- ???.Value=Finline.value- Quel code faut-il écrire pour que s’inscrive, dans une cellule ou une box, le nombre de lignes trouvé ?
Remerciements

Sub Macro
 Sheets("FINALIST").Select
Dim Finligne, Numeroligne As Integer
Finligne = ActiveSheet.UsedRange.Rows.Count
????.value=Finligne.value
Numeroligne=2
End Sub
A voir également:

4 réponses

franc38 Messages postés 197 Date d'inscription mercredi 23 avril 2008 Statut Membre Dernière intervention 27 février 2023 38
21 déc. 2020 à 06:38
Bonjour
range("A1").value=Finligne 'pour mettre la réponse en A1
msgbox(Finligne) 'message
me.textbox1.value=Finligne

A+ François
0
Scalpa31_1966 Messages postés 5 Date d'inscription lundi 21 décembre 2020 Statut Membre Dernière intervention 22 août 2021
21 déc. 2020 à 14:07
Merci beaucoup pour votre rapide réponse.
Cependant,
Si après la commande :
Range("A1").value=Finligne 'pour mettre la réponse en A1
Je veux faire afficher sur l’écran dans la cellule A2 ou une autre ou une textbox, le contenu de A1
Quel ordre dois-je donner ?
?????? = Range (‘’A1’’).Value

Car je trouve que la procédure via le MsgBox est trop lourde, je veux juste lire l’information sans interroger.
Remerciements
0
Scalpa31_1966 Messages postés 5 Date d'inscription lundi 21 décembre 2020 Statut Membre Dernière intervention 22 août 2021
21 déc. 2020 à 16:50
Merci beaucoup pour votre rapide réponse.
Cependant,
Si après la commande :
Range("A1").value=Finligne 'pour mettre la réponse en A1
Je veux faire afficher sur l’écran dans la cellule A2 ou une autre ou une textbox, le contenu de A1
Quel ordre dois-je donner ?
?????? = Range (‘’A1’’).Value
Car je trouve que la procédure via le MsgBox est trop lourde, je veux juste lire l’information sans interroger.
Remerciements
0
franc38 Messages postés 197 Date d'inscription mercredi 23 avril 2008 Statut Membre Dernière intervention 27 février 2023 38
22 déc. 2020 à 13:35
Bonjour
la réponse est dans le 1er post
range("A2").value=Finligne 'pour mettre la réponse en A2

me.textbox1.value=Finligne 'pour mettre la réponse dans un textbox
il existe des cours gratuit sur le net. Par exemple:
https://forum.excel-pratique.com/excel/
A+ François
0