3746 résultats trouvés

par curulis57
1 avril 2020, 12:33
Forum : Excel - VBA
Sujet : Validez des données dans un tableau
Réponses : 13
Vues : 280

Re: Validez des données dans un tableau

Salut Phil,

voilà ton fichier selon tes souhaits.
IL est donc bien entendu que seuls les critères que tu as énuméré dans ton dernier message sont pris en compte pour le calcul du prix du WE !

8-)
A+
par curulis57
29 février 2020, 15:39
Forum : Excel - VBA
Sujet : Tri et affichage
Réponses : 19
Vues : 330

Re: Tri et affichage

Salut Cordage,

étant l'éditeur de ce sujet, toi seul peut le clôturer via l'icône "V" dans la barre d'outils au-dessus de la fenêtre de message.
:btres:

8-)
A+ pour d'autres aventures...
par curulis57
29 février 2020, 13:55
Forum : Excel - VBA
Sujet : Tri et affichage
Réponses : 19
Vues : 330

Re: Tri et affichage

Salut Cordage, Concernant Google Drive, ne connaissant pas du tout l'oiseau, je ne pourrais pas t'aider. Pour le reste, voir le fichier joint : les modifications se situent dans les SUB - Private Sub Worksheet_Change(ByVal Target As Range) - Private Sub Worksheet_SelectionChange(ByVal Target As Rang...
par curulis57
29 février 2020, 04:28
Forum : Excel - VBA
Sujet : Tri et affichage
Réponses : 19
Vues : 330

Re: Tri et affichage

Salut Cordage, mission accomplie... à 99%... :lole: Il ne peut y avoir qu'un lien hypertexte par cellule. Ton souhait d'en aligner plusieurs et de pouvoir choisir celui qui ouvrira tel ou tel site n'est pas possible sauf petite manip' pas handicapante. Pour le reste, mode d'emploi : - pour le tri , ...
par curulis57
24 février 2020, 21:52
Forum : Excel - VBA
Sujet : Traitement de données
Réponses : 1
Vues : 43

Re: Traitement de données

Salut sd3nis,

:bv3:

ainsi, peut-être...
Sub texte_uniformesexe2()
'
Dim rCel As Range
'
For Each rCel In Worksheet("VDN_1bis").Range("A7:T184")
    If rCel.Value = "M" Then rCel.Value = "H"
Next
'
End Sub
8-)
A+
par curulis57
24 février 2020, 21:04
Forum : Excel - VBA
Sujet : Tri et affichage
Réponses : 19
Vues : 330

Re: Tri et affichage

Salut Cordage, et difficile, avec ça... ;;) If iRow2 > iRow1 Then Range("B" & iRow1 + 1).Resize(iRow2 - iRow1, IIf(Range("B2").Value = "Ville", 2, 1)).Font.Color = Range("B" & iRow1).Interior.Color Range("B" & iRow1).Resize((iRow2 + 1) - iRow1, IIf(Range("B2").Value = "Ville", 2, 1)).Borders.LineSty...
par curulis57
24 février 2020, 19:53
Forum : Excel - VBA
Sujet : Alarme sonore avec sortie de boucle par bouton
Réponses : 5
Vues : 85

Re: Alarme sonore avec sortie de boucle par bouton

Salut Le Nen Samuel, Salut LouReed, ou avec Application.OnTime ... Private Sub cmdGO_Click() ' If Me.cmdGo.Caption <> "Beep" Then Me.cmdGo.Caption = "Beep" Application.OnTime Now + TimeValue("00:00:02"), "Beep", schedule = True Else Me.cmdGo.Caption = "GO" End If ' End Sub Public Sub Beep() ' Dummy ...
par curulis57
24 février 2020, 15:47
Forum : Excel - VBA
Sujet : Recuperer la date par le nom du classeur
Réponses : 15
Vues : 88

Re: Recuperer la date par le nom du classeur

Tu as téléchargé le fichier qui porte le même nom qu'un autre dans ton répertoire : il affiche certainement un nom comme...
UI234536 11 2020 (1)
Enregistre-le sous un nom de comportant pas cette excroissance...

8-)
A+
par curulis57
24 février 2020, 15:41
Forum : Excel - VBA
Sujet : Besoin d'aide pour une macro - Transport
Réponses : 11
Vues : 112

Re: Besoin d'aide pour une macro - Transport

Salut comprends pas comment ça a pu fonctionner un jour, d'ailleurs... :lole: If dblTotM > 0 Then If dblTotM > 0 Then For x = 1 To iFlag dblTotCL = 0 dblM = Val(Me.Controls("txtM" & x).Text) dblTotCL = iNav * (dblM / dblTotM) If Me.Controls("txtR" & x).Text <> "" Then With Worksheets("Tarif Transpor...
par curulis57
24 février 2020, 14:58
Forum : Excel - VBA
Sujet : Recuperer la date par le nom du classeur
Réponses : 15
Vues : 88

Re: Recuperer la date par le nom du classeur

Salut maroua301, de ce que j'ai compris... Private Sub Workbook_Open() ' Dim tTab, sItem$ ' sItem = ThisWorkbook.Name sItem = Left(sItem, InStrRev(sItem, ".") - 1) tTab = Split(sItem, " ") sItem = "" If UBound(tTab) > 1 Then Range("B2").Value = DateSerial(CInt(tTab(UBound(tTab))), CInt(tTab(UBound(t...