Renseigner une cellule suivant plusieurs conditions
Bonjou,
J'ai un fichier qui comporte plus de 2 000 lignes. je voudrais suivant le contenu de plusieurs cellules mettre une valeur dans la première. J'ai essayé 2 méthodes et dans les 2 cas il ne me reste que les lignes qui remplissent ces conditions soit 127 lignes.
1er essai
DerniereLigne = Sheets("calculs").UsedRange.Rows.Count
For lig01 = DerniereLigne To 3 Step -1
If Cells(lig01, 8) > "0 00:15" And Cells(lig01, 13) Like "Grave" And Cells(lig01, 15) Like "FAB" And Cells(lig01, 11) Like "*N1*" Then
Cells(lig01, 1) = "IQS-I1-2"
End If
Next lig01
2ème essai
DerniereLigne = Sheets("calculs").UsedRange.Rows.Count
For lig01 = DerniereLigne To 3 Step -1
If Cells(lig01, 8) > "0 00:15" Then
If Cells(lig01, 13) Like "Grave" Then
If Cells(lig01, 15) Like "FAB" Then
If Cells(lig01, 11) Like "*N1*" Then
Cells(lig01, 1) = "IQS-I1-2"
End If
End If
End If
End If
Next lig01
Une fois de plus il doit y avoir quelque chose d'énorme que je ne vois pas.
Merci à vous si vous pouvez m'aider.
Cordialement.
bonjour
pourquoi du VBA et pas une simple formule ?
que veux-tu obtenir ?
joins ton ficheir ou un extrait
Bonjour,
Merci pour votre réponse et désolé pour répondre tardivement (j'ai été pris sur d'autres choses).
J'ai mis une partie de fichier en pièce jointe. Pourquoi choisir VBA : en fait je dois sortir des chiffres comme ce que j'ai mis en exemple dans le message d'hier au total 6 variantes (sur les délais, code gravité....) je pensais donc que ce serait plus rapide et ensuite suite aux résultats obtenus je dois appliquer des "pénalités" par tranches de dépassement ( 50€ par tranches de 30mns au délà des 2h00) avec des plafonnements.
J’espère avoir répondu à votre question.
Bonne journée
Bonjour,
il ne risque pas de ce passer quoi que ce soit car
- il n'ya pas de *N1* dans la colonne 11 (peut être est-ce la 10)
pas de Grave en colonne 13
pas de FAB en 15
es tu sur que tu veux faire un AND, ca sera pas plutot un OR ?
Franck
Bonjour,
En effet j'ai supprimé des caractères dans le fichier exemple et je n'ai pas mis les 2500 lignes.
Il faut bine que j'ai "AND" car il faut que le délai de prise en compte soit > à 15 minutes, que ce soit les "N1" qui prennent en compte, que l'incidents soit "Grave"....
RE,
il reste donc le pb des numéros de colonnes :
- groupe d'ouverture => colonne 10
Code gravité => colonne 12
Catégorie 1 => 14
PdS PeC => 7
PdS TrT => 8
re
salut Xanor
pour des milliers de lignes aussi il vaut mieux des formules
si tu sais faire des SI imbriqués c'est facile
s'il faut ensuite faire des formules complémentaires (les pénalités), tu devrais constater que c'est assez facile aussi avec des SI
en cas de difficultés reviens avec un fichier contenant des valeurs plus variées