Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Addition de la colonne C jusqua ce que la colonne B change de nom

3 réponses
Avatar
AlbatroZ
Salut tout le monde:
Voila, j'ai un tableau de donne (extrait de SAP)
il se resume a ca:

[...]
a b c d
blabla blabla SUB1
PPA 2
4
6
PPD 8
5


Le probleme:


Je veux donner a une variable ('cout') la somme des chiffres de la
colonne qui contient "SUB1" (ici c'est 'c' mais attention, cette
colonne n'est pas toujours au meme endroit en revanche le nom de
l'entete est toujours "SUB1") . a partir du moment ou la colonne 'b'
(la aussi elle n'est pas fixe) est egale a PPA. l'addition
se fait jusqu'a ce que cette colonne (ici 'b') change de valeur (la
valeur apres PPA est toujours PPD).


Le resultat final est dans l'exemple: cout = 2+4+6 = 10


Merci infiniement d'avance car la je cale completement

3 réponses

Avatar
Daniel
Bonjour.
Est-ce que la colonne contenant PPA est fixz par rapport à ka colonne
contenant SUB1 ?
Cordialement.
Daniel
"AlbatroZ" a écrit dans le message de news:

Salut tout le monde:
Voila, j'ai un tableau de donne (extrait de SAP)
il se resume a ca:

[...]
a b c d
blabla blabla SUB1
PPA 2
4
6
PPD 8
5


Le probleme:


Je veux donner a une variable ('cout') la somme des chiffres de la
colonne qui contient "SUB1" (ici c'est 'c' mais attention, cette
colonne n'est pas toujours au meme endroit en revanche le nom de
l'entete est toujours "SUB1") . a partir du moment ou la colonne 'b'
(la aussi elle n'est pas fixe) est egale a PPA. l'addition
se fait jusqu'a ce que cette colonne (ici 'b') change de valeur (la
valeur apres PPA est toujours PPD).


Le resultat final est dans l'exemple: cout = 2+4+6 = 10


Merci infiniement d'avance car la je cale completement



Avatar
MichDenis
Un petit exemple comment trouver la colonne ou est SUB1
et additionner toute la colonne :

J'ai supposé que la ligne où se trouve SUB1 est la ligne1
Tu adaptes le nom de la feuille.


Sub test()

Dim S As Double
Dim NoCol As Integer
With Worksheets("Feuil3")
'Trouve la colonne où est "SUB1")
NoCol = Application.Match("SUB1", Rows(1), 0)
S = Application.Sum(.Columns(4))
End With
MsgBox "La somme est : " & S


End Sub




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

Salut tout le monde:
Voila, j'ai un tableau de donne (extrait de SAP)
il se resume a ca:

[...]
a b c d
blabla blabla SUB1
PPA 2
4
6
PPD 8
5


Le probleme:


Je veux donner a une variable ('cout') la somme des chiffres de la
colonne qui contient "SUB1" (ici c'est 'c' mais attention, cette
colonne n'est pas toujours au meme endroit en revanche le nom de
l'entete est toujours "SUB1") . a partir du moment ou la colonne 'b'
(la aussi elle n'est pas fixe) est egale a PPA. l'addition
se fait jusqu'a ce que cette colonne (ici 'b') change de valeur (la
valeur apres PPA est toujours PPD).


Le resultat final est dans l'exemple: cout = 2+4+6 = 10


Merci infiniement d'avance car la je cale completement
Avatar
Daniel
Essaie ça :

Sub test()
Dim c As Range, Ctr As Long, Deb As Boolean
Dim Var As Double
Ctr = 1
Set c = Cells.Find("SUB1", , , xlWhole)
Do While c.Offset(Ctr, 0) <> ""
If c.Offset(Ctr, -1) <> "" Then
If Deb = False Then
Deb = True
Else
MsgBox Var
End If
Var = c.Offset(Ctr, 0)
Else
Var = Var + c.Offset(Ctr, 0)
End If
Ctr = Ctr + 1
Loop
MsgBox Var
End Sub

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

Bonjour.
Est-ce que la colonne contenant PPA est fixz par rapport à ka colonne
contenant SUB1 ?
Cordialement.
Daniel
"AlbatroZ" a écrit dans le message de news:

Salut tout le monde:
Voila, j'ai un tableau de donne (extrait de SAP)
il se resume a ca:

[...]
a b c d
blabla blabla SUB1
PPA 2
4
6
PPD 8
5


Le probleme:


Je veux donner a une variable ('cout') la somme des chiffres de la
colonne qui contient "SUB1" (ici c'est 'c' mais attention, cette
colonne n'est pas toujours au meme endroit en revanche le nom de
l'entete est toujours "SUB1") . a partir du moment ou la colonne 'b'
(la aussi elle n'est pas fixe) est egale a PPA. l'addition
se fait jusqu'a ce que cette colonne (ici 'b') change de valeur (la
valeur apres PPA est toujours PPD).


Le resultat final est dans l'exemple: cout = 2+4+6 = 10


Merci infiniement d'avance car la je cale completement