Vb enregister nombre de cellule pleine dans variable

Créer une discussion
Répondre

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
A

Arpette

XLDnaute Impliqué
Bonsoir à toutes et à tous,
je fais pour mon ami Gardian un USF pour suivre son activité en tant qu'éleveur de veaux. J'ai réussi à faire le suivi médical, mais maintenant je dois faire la gestion des stocks. Je n'ai pas de problème pour les entrées, mais un problème pour les sorties. Il me faut stocker dans une variable les cellules non vides sur d'une feuille et colonne ( tout est dans le même classeur). Je n'arrive pas à isoler cette info. Ci-joint le code où je veux l'info et le fichier si pour avoir vos immpressions
Merci de votre aide, surtout pour notre ami Gardian.
@+

Code: 
Private Sub CommandButton3_click()
Application.ScreenUpdating = False
Dim DernLign As Long
Dim R As Integer
With Sheets("Alimentation")
        'On mémorise dans DernLign le numéro de la première ligne libre de la feuille Alimentation
        DernLign = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
        'On met à jour la feuille Alimentation avec les données du Userform
        If TextBox6.Value = "" Then
        TextBox6.Value = 0
        .Cells(DernLign, 4).Value = TextBox6.Value * 1250
        End If
With Sheets("Identifiants")
        R = .CountF(Range("F2:F65536"))
         .Cells(DernLign, 5).Value = TextBox7.Value
         .Cells(DernLign, 6).Value = .Cells(DernLign, 4) - .Cells(DernLign, 6).Value
          Cells(2, 12).Value = TextBox8.Value
        
End With
End With
Application.ScreenUpdating = True
End Sub
 

Pièces jointes

Trier par date Trier par votes
Re : Vb enregister nombre de cellule pleine dans variable

Bonjour,

J'avoue ne pas trop comprendre ta demande Il me faut stocker dans une variable les cellules non vides sur d'une feuille et colonne ( tout est dans le même classeur). Je n'arrive pas à isoler cette info
Si tu pouvais être plus précis...
Pour moi stock=stock initial + entrées - sorties

Et bizarre (?), mais dans ton code tu calcules dernlign dans 'Alimentation' et ensuite tu te sers dans de la même ligne dans 'identifiants'. C'est normal ça ?

eric

PS: et la 1ère ligne libre ça ne serait pas celle de la date en colonne A ?
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Vb enregister nombre de cellule pleine dans variable

eriiiic à dit:
Bonjour,

J'avoue ne pas trop comprendre ta demande Il me faut stocker dans une variable les cellules non vides sur d'une feuille et colonne ( tout est dans le même classeur). Je n'arrive pas à isoler cette info
Si tu pouvais être plus précis...
Pour moi stock=stock initial + entrées - sorties

Et bizarre (?), mais dans ton code tu calcules dernlign dans 'Alimentation' et ensuite tu te sers dans de la même ligne dans 'identifiants'. C'est normal ça ?

eric

PS: et la 1ère ligne libre ça ne serait pas celle de la date en colonne A ?
Cliquez pour agrandir...

Bonsoir Eric, je suis un peu fatigué: c'est vrai quand je relis mon post c'est nul. Pour les entrées le code ci-dessous est correcte
Code: 
With Sheets("Alimentation")
        'On mémorise dans DernLign le numéro de la première ligne libre de la feuille Alimentation
        DernLign = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
        'On met à jour la feuille Alimentation avec les données du Userform
        If TextBox6.Value = "" Then
        TextBox6.Value = 0
        .Cells(DernLign, 4).Value = TextBox6.Value * 1250
        End If
Par contre, pour les sorties il faut regarder dans la feuille "Identifiants" colonne F et mémoriser dans une variable le nombre de cellules non vides de F2 à F65536, pour ensuite faire mes calculs.
Merci de ton aide
@+
 
Vote positif 0 Vote négatif
Re : Vb enregister nombre de cellule pleine dans variable

Re,
Bonjour c-c,

Je crois que j'ai compris ta question :
R = Application.CountA(Sheets("Identifiants").Range("F2:F65536"))

eric

edit :
et j'insiste avec :
'On mémorise dans DernLign le numéro de la première ligne libre de la feuille Alimentation
DernLign = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
Tu as la 1ère ligne libre de la colonne D, pas de la feuille...
Si tu as une 'sortie' en ligne suivante la ligne est occupée, vaut peut-être mieux te baser sur une colonne toujours saisie comme la date (en A)
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Vb enregister nombre de cellule pleine dans variable

carcharodon-carcharias à dit:
bonjour
voici une proposition
Code: 
[COLOR=BLUE]Sub[/COLOR] Comptage()
    [COLOR=BLUE]Dim[/COLOR] NB&, cell [COLOR=BLUE]As[/COLOR] Range
    NB = 0
    Application.ScreenUpdating = [COLOR=BLUE]False[/COLOR]
    [COLOR=BLUE]With[/COLOR] Sheets([I]"Identifiants"[/I])
        [COLOR=BLUE]For[/COLOR] [COLOR=BLUE]Each[/COLOR] cell [COLOR=BLUE]In[/COLOR] Range([I]"F2:F65536"[/I])
            [COLOR=BLUE]If[/COLOR] cell <> [I]""[/I] [COLOR=BLUE]Then[/COLOR] NB = NB + 1    [COLOR=GREEN]'possibilité de compter les [I]"M"[/I] ou les [I]"F"[/I][/COLOR]
        [COLOR=BLUE]Next[/COLOR] cell
    [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]With[/COLOR]
    Application.ScreenUpdating = [COLOR=BLUE]True[/COLOR]
    MsgBox NB [COLOR=GREEN]'pour le test[/COLOR]
  [COLOR=BLUE]End[/COLOR] [COLOR=BLUE]Sub[/COLOR]
Lancer le comptage avec un :
Code: 
[COLOR=BLUE]Call[/COLOR] Comptage
et pour la récupération la variable est NB 😉
Cliquez pour agrandir...
Bonjour c-c et merci de ta réponse. Le problème est que je veux la lancer quand je clique sur le bouton de mon usf.
Merci de ton aide.

Code: 
Private Sub CommandButton3_click()
Application.ScreenUpdating = False
Dim DernLign As Long
Dim NB&, cell As Range
With Sheets("Alimentation")
        'On mémorise dans DernLign le numéro de la première ligne libre de la feuille Alimentation
        DernLign = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
        'On met à jour la feuille Alimentation avec les données du Userform
        If TextBox6.Value = "" Then
        TextBox6.Value = 0
        .Cells(DernLign, 4).Value = TextBox6.Value * 1250
        End If
With Sheets("Identifiants")
   Call Comptage
    NB = 0
    Application.ScreenUpdating = False
    With Sheets("Identifiants")
        For Each cell In Range("F2:F65536")
            If cell <> "" Then NB = NB + 1    'possibilité de compter les "M" ou les "F"
        Next cell
    End With
    Application.ScreenUpdating = True
    TextBox7.Value = NB
    .Cells(DernLign, 5).Value = TextBox7.Value
    '.Cells(DernLign, 6).Value = .Cells(DernLign, 4) - .Cells(DernLign, 6).Value
    Cells(2, 12).Value = TextBox8.Value

End With
End With

Application.ScreenUpdating = True
End Sub
End Sub
 
Vote positif 0 Vote négatif
Re : Vb enregister nombre de cellule pleine dans variable

Bonjour Arpette, eriiiic, C-C 🙂,
A tester :
Code: 
[COLOR=blue]Private Sub[/COLOR] CommandButton3_click()
Application.ScreenUpdating = [COLOR=blue]False[/COLOR]
[COLOR=blue]Dim[/COLOR] DernLign [COLOR=blue]As Long[/COLOR]
[COLOR=blue]Dim[/COLOR] NB&, cell [COLOR=blue]As[/COLOR] Range
NB = 0
[COLOR=blue]With[/COLOR] Sheets("Alimentation")
    DernLign = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
    [COLOR=blue]If[/COLOR] TextBox6.Value = "" [COLOR=blue]Then[/COLOR]
        TextBox6.Value = 0
        .Cells(DernLign, 4).Value = TextBox6.Value * 1250
    [COLOR=blue]End If[/COLOR]
[COLOR=blue]End With[/COLOR]
 
[COLOR=blue]With[/COLOR] Sheets("Identifiants")
    [COLOR=blue]For Each[/COLOR] cell [COLOR=blue]In[/COLOR] .Range("F2:F65536")
        [COLOR=blue]If[/COLOR] cell <> "" [COLOR=blue]Then[/COLOR] NB = NB + 1
    [COLOR=blue]Next[/COLOR] cell
    TextBox7.Value = NB
    .Cells(DernLign, 5).Value = TextBox7.Value
   [COLOR=green]'.Cells(DernLign, 6).Value = .Cells(DernLign, 4) - .Cells(DernLign, 6).Value[/COLOR]
    [COLOR=red][B].[/B][/COLOR]Cells(2, 12).Value = TextBox8.Value
[COLOR=blue]End With[/COLOR]
Application.ScreenUpdating = [COLOR=blue]True[/COLOR]
[COLOR=blue]End Sub[/COLOR]
Cordialement
Edit: Il manquait encore un point....
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Vb enregister nombre de cellule pleine dans variable

Efgé à dit:
Bonjour Arpette, eriiiic, C-C 🙂,
A tester :
Code: 
[COLOR=blue]Private Sub[/COLOR] CommandButton3_click()
Application.ScreenUpdating = [COLOR=blue]False[/COLOR]
[COLOR=blue]Dim[/COLOR] DernLign [COLOR=blue]As Long[/COLOR]
[COLOR=blue]Dim[/COLOR] NB&, cell [COLOR=blue]As[/COLOR] Range
NB = 0
[COLOR=blue]With[/COLOR] Sheets("Alimentation")
    DernLign = .Cells(.Rows.Count, 4).End(xlUp).Row + 1
    [COLOR=blue]If[/COLOR] TextBox6.Value = "" [COLOR=blue]Then[/COLOR]
        TextBox6.Value = 0
        .Cells(DernLign, 4).Value = TextBox6.Value * 1250
    [COLOR=blue]End If[/COLOR]
[COLOR=blue]End With[/COLOR]
 
[COLOR=blue]With[/COLOR] Sheets("Identifiants")
    [COLOR=blue]For Each[/COLOR] cell [COLOR=blue]In[/COLOR] .Range("F2:F65536")
        [COLOR=blue]If[/COLOR] cell <> "" [COLOR=blue]Then[/COLOR] NB = NB + 1
    [COLOR=blue]Next[/COLOR] cell
    TextBox7.Value = NB
    .Cells(DernLign, 5).Value = TextBox7.Value
   [COLOR=green]'.Cells(DernLign, 6).Value = .Cells(DernLign, 4) - .Cells(DernLign, 6).Value[/COLOR]
    [COLOR=red][B].[/B][/COLOR]Cells(2, 12).Value = TextBox8.Value
[COLOR=blue]End With[/COLOR]
Application.ScreenUpdating = [COLOR=blue]True[/COLOR]
[COLOR=blue]End Sub[/COLOR]
Cordialement
Edit: Il manquait encore un point....
Cliquez pour agrandir...
Bonjour efge, merci c'est nickel, merci également à eric et c-c.
Bonne journée.
 
Vote positif 0 Vote négatif
Re : Vb enregister nombre de cellule pleine dans variable

Bonjour,

La fonction que tu avais choisie et que j'ai corrigée (0h20) marche très bien et évite une boucle...
R = Application.CountA(Sheets("Identifiants").Range("F 2:F65536"))

eric
 
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

Discussions similaires

F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
519
Latias
L
G
  • Question Question
Microsoft 365 Incompatibilité de type - Array
Réponses
2
Affichages
834
guiyom
G
T
  • Question Question
Microsoft 365 Problème affichage multipage dans un tabstrip
Réponses
1
Affichages
722
troki74
T
A
  • Résolu(e)
XL 2010 ajout de textbox
Réponses
2
Affichages
928
Appo1985
A
B
  • Question Question
Microsoft 365 formulaire VBA problème
Réponses
3
Affichages
1 K
herve62
herve62
R
  • Résolu(e)
XL 2016 Un petit coup de main pour un code VBA
Réponses
11
Affichages
1 K
ReneDav14000
R
O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
1 K
ChTi160
ChTi160
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
823
Cheyenne_2021
C
P
  • Résolu(e)
Microsoft 365 Erreur d'exécution "9" :L'indice n'appartient pas à la sélection
Réponses
9
Affichages
2 K
pelerin65
P
J
  • Question Question
Microsoft 365 Macro excel spécifier chemin de sauvegarde one drive
Réponses
4
Affichages
1 K
.jakob@gmail.com
J
Yann71
  • Question Question
XL 2019 Ajouter un " aperçu avant impression " à ce code
Réponses
7
Affichages
1 K
Yann71
Yann71
A
  • Question Question
XL 2013 Utilisation de la fonction "Case" dans VBA
Réponses
12
Affichages
2 K
AnjyD
A
Fredox
  • Question Question
XL 2019 [VBA] Modifier la position de l'image contenue dans la cellule active
2
Réponses
16
Affichages
3 K
Fredox
Fredox
S
  • Question Question
XL 2019 Transfer de données du formulaire vers un tableau après click sur le CommandButton1.
Réponses
4
Affichages
1 K
sgangbadjo
S
M
  • Question Question
XL 2016 Instruction Cdate fait planter mon code
Réponses
3
Affichages
2 K
MONADESIGN82
M
M
  • Question Question
XL 2016 erreur d'exécution
3 4 5
Réponses
68
Affichages
9 K
Etoto0026
E
V
  • Question Question
XL 2019 ActiveSheet avec nom feuille contenu dans une cellule
Réponses
3
Affichages
893
Staple1600
Staple1600
M
  • Question Question
XL 2019 Sélectionner une feuille avec nom dans une variable VBA
Réponses
4
Affichages
2 K
ManOfCatz
M
P
  • Question Question
XL 2016 Userform command button recherche
Réponses
7
Affichages
1 K
plaiiz
P
Retour