Menu

Somme de cellule apres condition IF [Résolu]

Messages postés
93
Date d'inscription
lundi 2 octobre 2017
Dernière intervention
6 décembre 2018
-
Bonjour,

A l’aide d’une condition je souhaite remonter une valeur qui se trouve dans la cellule juste à côté.

Mon problème est que ma condition me retourne 2 lignes ce qui est normal car je peux avoir 2 fois le même libellé de trouvé et par defaut il ne me fait pas la somme des 2 valeurs sur la gauche, il prend la valeur de la deuxième ligne.

Peut on faire une somme apres cette condition ?

Private Sub ReleveINFOS3()

Dim A As Integer, b As Integer, i As Integer, j As Integer, k As Integer, l As Integer, M As Integer, y As Integer, o As Integer, TCDCXgrpQL() As Variant, TCDCXgrpPLIS() As Variant
Dim z As Integer, NbLignes As Integer, p As Integer, iQL As Integer, FF As Boolean
Dim Machine(11) As Variant, SESSION(80, 70) As Variant, SESSparam(80, 70) As Variant, col As Integer, c As Integer, col2 As Integer
Dim Début As Integer, FIN As Integer, Nom As String, SecondQL As String, ListeQL(30) As String
Dim NbQL(50) As Integer, NouveauLOT As String, AncVAL As Double, Lig As Integer



col = 1
y = 1
For i = 5 To 20000

If Left(Cells(i, 1).Value, 1) = "N" Then

SESSION(col, 1) = Cells(i + 1, 1).Value 'N° de bloc
col = col + 1
col2 = col2 + 1

ElseIf Left(Cells(i, 4).Value, 32) = "TPD-_99 PIC TTF 14-COL 14" And (Cells(i, 3).Value) > 0 Then
SESSION(col2, 2) = Cells(i, 3).Value 'Nb de plis en TPD-

End If
Next


ActiveWorkbook.Close


c = 1
Lig = Sheets("SATURNE").Range("U1").Value
For c = 1 To col - 1
If Sheets("SATURNE").Cells(Lig, 1) = "" Then

Sheets("SATURNE").Cells(Lig, 1).Value = SESSION(c, 1) 'N° de bloc
Sheets("SATURNE").Cells(Lig, 2).Value = SESSION(c, 2) 'Nb de plis en TPD-



Pl = Pl + 1
Lig = Lig + 1
End If
Next

Si quelqu’un à une idée

Merci
Afficher la suite 

Votre réponse

1 réponse

Messages postés
7444
Date d'inscription
dimanche 13 juin 2010
Dernière intervention
13 décembre 2018
0
Merci
Bonjour,

Quand tu postes du code sur le forum ...
Utilises les balises de code avec indication du langage (=coloration syntaxique)
Explications disponibles ici : Comment utiliser les balises de code
Exemple :
Sub UtiliserLesBalises()
  MsgBox "Merci d'utiliser les balises de code"
End Sub

Merci de corriger ta question en conséquence.
Commenter la réponse de Patrice33740