Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Formule variable.

Formule variable.

3 réponses
Avatar
Ceno
Bonjour =E0 tous,

Je voudrais un total de la colonne E =E0 R pour chaque ligne est en
fonction du r=E9sultat masque la ligne.

J'ai donc tap=E9 Total =3D [Sum(E26:R26)], seulement il reste que sur la
ligne 26. J'ai fait une boucle avec For x =3D 26 To 50, mais comment
dans mon calcul remplacer les 26 par x.

Par avance merci.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacky
Bonjour,

Essaie ceci:
La boucle entre Y et X en commncent par la fin.
Masque si la somme entre Colonne E et Colonne R = 0 pour l'exemple)
'-------------------
Sub jj()
Dim i As Long, x As Long, y As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
x = 26: y = 50
Range("E" & x & ":R" & 50).Rows.Hidden = False
For i = y To x Step -1
If Application.Sum(Range("E" & i & ":R" & i)) = 0 Then Rows(i).Hidden = True
Next
Application.Calculation = xlCalculationAutomatic
End Sub
'----------------

--
Salutations
JJ


"Ceno" a écrit dans le message de news:

Bonjour à tous,

Je voudrais un total de la colonne E à R pour chaque ligne est en
fonction du résultat masque la ligne.

J'ai donc tapé Total = [Sum(E26:R26)], seulement il reste que sur la
ligne 26. J'ai fait une boucle avec For x = 26 To 50, mais comment
dans mon calcul remplacer les 26 par x.

Par avance merci.
Avatar
Ceno
Merci beaucoup Jacky,

Maintenand il me faut faire la même chose avec les colonnes, comment
dois-je faire ?

Par avance merci.
Avatar
Jacky
Re
Début et fin de lignes sous forme de variable
Début et fin de colonnes sous forme de variable
A adapter bien sûr.
'-----------------
Sub jj()
Dim DebutLigne As Long, FinLigne As Long, DebutCol As Long, FinCol As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
DebutLigne = 26: FinLigne = 50
DebutCol = 5: FinCol = 18
Range(Cells(DebutLigne, DebutCol), Cells(FinLigne, FinCol)).Rows.Hidden =
False
For i = FinLigne To DebutLigne Step -1
If Application.Sum(Range(Cells(i, DebutCol), Cells(i, FinCol))) = 0 Then
Rows(i).Hidden = True
Next
Application.Calculation = xlCalculationAutomatic
End Sub
'---------------------
--
Salutations
JJ


"Ceno" a écrit dans le message de news:

Merci beaucoup Jacky,

Maintenand il me faut faire la même chose avec les colonnes, comment
dois-je faire ?

Par avance merci.