Macro

Scalpa31_1966 Messages postés 5 Date d'inscription   Statut Membre Dernière intervention   -  
franc38 Messages postés 197 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   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   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention  
 
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   Statut Membre Dernière intervention   38
 
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