Faire une somme dans une condition if vba excel
Résolu
AstraLife
Messages postés
99
Statut
Membre
-
eriiic Messages postés 25847 Statut Contributeur -
eriiic Messages postés 25847 Statut Contributeur -
Bonjour,
A l’aide d’une condition If je souhaite récuperer une somme de valeurs qui se trouvent dans les 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 donc 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 aprés cette condition ?
Si quelqu’un à une idée
Merci
A l’aide d’une condition If je souhaite récuperer une somme de valeurs qui se trouvent dans les 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 donc 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 aprés 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
A voir également:
- Faire une somme dans une condition if vba excel
- Excel cellule couleur si condition texte - Guide
- Déplacer une colonne excel - Guide
- Faire une somme sur excel - Guide
- Liste déroulante excel - Guide
- Somme si couleur excel - Guide