3745 résultats trouvés

par curulis57
29 février 2020, 15:39
Forum : Excel - VBA
Sujet : Tri et affichage
Réponses : 19
Vues : 307

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 : 307

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 : 307

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 : 30

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 : 307

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 : 73

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 : 77

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 : 101

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 : 77

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...
par curulis57
24 février 2020, 14:33
Forum : Excel - VBA
Sujet : Recuperer la date par le nom du classeur
Réponses : 15
Vues : 77

Re: Recuperer la date par le nom du classeur

Déso, je ne comprends rien à ce que tu veux faire...
Décris la procédure pas à pas avec un fichier qui illustre le résultat souhaité en fonction d'une situation de départ!

8-)
A+