Sélectionner par rapport à deux variables
Résolu
Neoplook
Messages postés
21
Date d'inscription
Statut
Membre
Dernière intervention
-
Zoul67 Messages postés 1959 Date d'inscription Statut Membre Dernière intervention -
Zoul67 Messages postés 1959 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Sélectionner par rapport à deux variables
- Deux ecran pc - Guide
- Comment faire deux colonnes sur word - Guide
- Plan rapport de stage - Guide
- Nombre de jours entre deux dates excel - Guide
- Selectionner texte sur pdf - Guide
1 réponse
Bonjour,
Bref, pourquoi utiliser VBA pour ça ?
https://www.cjoint.com/c/EJhlM0Wk14J
J'ai mis des choses dans les cellules surlignées en jaune.
A+
Bref, pourquoi utiliser VBA pour ça ?
https://www.cjoint.com/c/EJhlM0Wk14J
J'ai mis des choses dans les cellules surlignées en jaune.
A+
Pourquoi utiliser VBA pour ça ?
Eh bien simplement parce qu'il n'y a pas "Que" ça dans mon programme, à chaque ouverture la feuille 2 est réinitialisée pour permettre un nouveau remplissage avec, si il y a, de nouvelles valeurs.
Je te remercie d'avoir répondu, mais hélas ça ne répond pas à mes attentes. Si je pouvais passer par une formule comme celle-ci, je l'aurais fais moi-même, mais ce n'est pas le cas. J'ai besoin de VBA.
S'il n'y a que ces dates dans les colonnes A à F dans la Feuil2, je ne vois pas pourquoi les formules ne sont pas applicables.
S'il n'y a pas de problème de confidentialité, tu peux fournir ton fichier via https://www.cjoint.com/ et si ça nécessite du code VBA, cela devrait être dans mes cordes.
Voici le lien : http://www.cjoint.com/c/EJhoJ3BDWbT
L'équivalent de la feuille 1 est "Interventions", l'équivalent de la feuille 2 est "Alertes".
Sub Alertes() Dim i As Integer i = 10 While Sheets("Interventions").Cells(i, 1).Value <> "" A = Sheets("Interventions").Cells(i, 1).Value B = Sheets("Interventions").Cells(i, 2).Value K = Sheets("Interventions").Cells(i, 11).Value M = Sheets("Interventions").Cells(i, 13).Value If M = "" Then If K = 1 And (Date - B) >= 45 Then Sheets("Alertes").Rows(8).Insert Sheets("Alertes").Cells(8, 1).Value = A Sheets("Alertes").Cells(8, 2).Value = B ElseIf K = 2 And (Date - B) >= 20 Then Sheets("Alertes").Rows(8).Insert Sheets("Alertes").Cells(8, 3).Value = A Sheets("Alertes").Cells(8, 4).Value = B ElseIf K = 3 And (Date - B) >= 10 Then Sheets("Alertes").Rows(8).Insert Sheets("Alertes").Cells(8, 5).Value = A Sheets("Alertes").Cells(8, 6).Value = B End If End If i = i + 1 Wend End SubPour tous : il s'agit de lister dans la feuille 2 ("alertes") les seules interventions non terminées par niveau d'urgence (j'ai supposé qu'il ne fallait pas de ligne vide, sinon des formules auraient fait l'affaire).
Toutefois, j'ai pas mal de commentaires sur l'ensemble du fichier...
- plutôt que des boutons pour accéder aux feuilles ou à un emplacement spécifique d'une feuille (nécessitant du code), pourquoi ne pas utiliser des liens hypertexte (=> suppressions des modules 1 et 7) ?
- un contrôle de complétude devrait être effectué avant ajout d'une intervention
- j'assemblerais les onglets ajout intervention, interventions et alertes dans le même onglet (=> on fait apparaître les alertes par mise en forme conditionnelle) ; le tableau récapitulatif des alertes nécessite la consultation de l'onglet 'interventions' dans la foulée
-...
J'arrête là parce que tu as beaucoup codé et que c'est dur en étant novice.
On peut échanger par messages privés si tu préfères.
A+