3274 résultats trouvés

par curulis57
Aujourd’hui, 15:32
Forum : Excel - VBA
Sujet : Recherche Via textbox multiples
Réponses : 2
Vues : 29

Re: Recherche Via textbox multiples

Salut Paulox, premier jet rapide! Pas encore de recherche axée sur les 3 TextBox... Pas vraiment le temps... Ce soir... Plutôt axé le travail sur les contrôles et la structure du code... Public Sub REC(ByVal iIdx%) ' Dim iRow% ' On Error Resume Next With Worksheets("Base") iRow = .Columns(iIdx).Find...
par curulis57
Aujourd’hui, 15:05
Forum : Excel - VBA
Sujet : Calcul +
Réponses : 7
Vues : 80

Re: Calcul +

Ah ?

Pourtant...
par curulis57
Aujourd’hui, 13:56
Forum : Excel - VBA
Sujet : Ajouter une bordure en fonction du résultat d'une formule
Réponses : 7
Vues : 98

Re: Ajouter une bordure en fonction du résultat d'une formule

Salut Trufu, - j'imagine que c'est plutôt "CM"... Range("C" & 14 + [F9]).Value = "Limite candidats CM" - tu peux joindre les deux actions dans le même bloc IF...ENDIF... If [E10] > 0 Then Range("E15").Value = 1 Range("E15").DataSeries rowcol:=xlColumns, Step:=1, Stop:=[E10] With Range("E" & 14 + [F1...
par curulis57
Aujourd’hui, 13:43
Forum : Excel - VBA
Sujet : Calcul +
Réponses : 7
Vues : 80

Re: Calcul +

Salut je n'arrive à quelque chose qu'ainsi... Á coller dans [M5] et tirer vers le bas. Et quoi, les Formuleurs professionnels ? Vous dormez ? :lol: =SI(C5="";"";SI(G5>15;0;SUBSTITUE(G5;".";","))+SUBSTITUE(J5;".";",")+SUBSTITUE(K5;".";",")+GAUCHE(SUBSTITUE(I5;".";",");CHERCHE(" -";I5)-1)) 8-) A+
par curulis57
Aujourd’hui, 07:37
Forum : Excel - VBA
Sujet : Incrementation n° + sauvegarde + archivage
Réponses : 1
Vues : 36

Re: Incrementation n° + sauvegarde + archivage

Salut Fanny, premières pierres de cet immense édifice... Sub NouvelleFiche() ' Dim sFact$ ' With Worksheets("PRESTATIONS") .[M2] = Format(.[M2] + 1, "00000") sFact = "FA" & CStr(.[L2]) & CStr(.[K2]) & "-" & CStr(Format(.[M2], "00000")) End With Sheets("MATRICE").Range("D11").Value = sFact ' End Sub ...
par curulis57
Aujourd’hui, 05:53
Forum : Excel - VBA
Sujet : Calcul +
Réponses : 7
Vues : 80

Re: Calcul +

Salut ilienfrancois,
Salut m3ellem1,

presque pareil, m3ellem1...
=SI(C5="";"";SI(G5>15;0;G5)+J5+K5+GAUCHE(SUBSTITUE(I5;".";",");CHERCHE(" -";I5)-1))
8-)
A+
par curulis57
Aujourd’hui, 05:37
Forum : Excel - VBA
Sujet : Création d'un ruban spécifique de navigation VBA
Réponses : 7
Vues : 81

Re: Création d'un ruban spécifique de navigation VBA

Salut Stan, dans le ruban, pas capable... :? Voici une solution VBA pour laquelle tu devrais réserver un endroit fixe sur chaque feuille pour accéder à tes groupes. Ici, c'est sur la ligne 1. Premier jet à tester! Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) '...
par curulis57
Aujourd’hui, 01:54
Forum : Excel - VBA
Sujet : Copier ligne excel avec un mot clé dans un autre feuille excel
Réponses : 1
Vues : 41

Re: Copier ligne excel avec un mot clé dans un autre feuille excel

Salut nacida2002, premier jet à tester... Deux macros placées dans 'le module VBA de 'ThisWorbook' pour gérer l'ensemble : - la création éventuelle des feuilles 'Mots-clé' si inexistantes ; - les MFC et Validation de l'ensemble des feuilles sont supprimées et gérées par VBA ; - les listes de validat...
par curulis57
Hier, 18:43
Forum : Excel - VBA
Sujet : Changement de couleur cellule automatique selon l'historique de la colonne
Réponses : 1
Vues : 42

Re: Changement de couleur cellule automatique selon l'historique de la colonne

Salut guarnaud, le problème n'est pas de trouver et composer une autre couleur mais : - de manière immédiate, perso évidemment, je ne vois pas comment, sauf usine à gaz, composer une couleur suffisamment contrastée par rapport aux autres. Teste, sur la feuille2, en sélectionnant des Range à la volée...
par curulis57
Hier, 17:45
Forum : Excel - VBA
Sujet : Ajouter une bordure en fonction du résultat d'une formule
Réponses : 7
Vues : 98

Re: Ajouter une bordure en fonction du résultat d'une formule

Euuuuuuhhhh... A la réflexion, j'ai fait à l'inspiration après interprétation risquée et hasardeuse! Comme disent les jeunes qui vont à l'examen sans étudier : "Au talent!" :lol: :lol: Private Sub Worksheet_Change(ByVal Target As Range) ' If Not Intersect(Target, [E7]) Is Nothing Then Range("A15:E10...