2918 résultats trouvés

par curulis57
Aujourd’hui, 06:06
Forum : Excel - VBA
Sujet : Compte à rebours personnalisé
Réponses : 2
Vues : 27

Re: Compte à rebours personnalisé

Salut Lucrob,

je te livre ton fichier alors qu'il reste des choses à faire.
Ne maîtrisant pas du tout ce foutu ON TIME, je n'arrive pas à terminer.
Teste déjà ceci : tu diras ce que tu en penses...

Les MFC et le code (module 'ThisWorkbook') s'appliquent déjà sur toutes les feuilles.

:lole:
A+
par curulis57
Hier, 23:21
Forum : Excel - VBA
Sujet : Positionnement sur cellule
Réponses : 8
Vues : 98

Re: Positionnement sur cellule

Salut Novice, Salut l'équipe, Salut André13, merci pour ton appréciation! :D Encore plus raide dingue : avec "petites" protections... Déraisonnable, en une ligne, je sais, mais j'adore ça!! :¬OL: Info : 0-0 se positionne sur le dernier n° de carte de la semaine courante. Cells(IIf(Split([A1], "-")(0...
par curulis57
Hier, 19:06
Forum : Excel - VBA
Sujet : Positionnement sur cellule
Réponses : 8
Vues : 98

Re: Positionnement sur cellule

Salut tout le monde, j'arrive après la guerre pour... ne rien faire comme les autres... :mrgreen: Tu introduis le n° de carte et le n° de semaine en [A1] séparés par un tiret, sans espace (ex : 10-25) Tu peux remplacer le n° de semaine en cours par un "0" (zéro). Aucune protection : je postule que c...
par curulis57
Hier, 05:11
Forum : Excel - VBA
Sujet : Screen plage de cellules
Réponses : 1
Vues : 41

Re: Screen plage de cellules

Salut Ionobody, commençons par retrouver ton planning! Code à coller dans le module VBA de 'ThisWorkbook'... Enregistrer et redémarrer le fichier... Private Sub Workbook_Open() ' With Worksheets("2019") .Activate ActiveWindow.ScrollRow = .Range("B:B").Find(what:="Semaine " & Format(Date, "ww", vbMon...
par curulis57
Hier, 04:27
Forum : Excel - VBA
Sujet : Généalogie
Réponses : 1
Vues : 54

Re: Généalogie

Salut Guy,

inscrit depuis belle lurette et toujours pas au courant que nous ne sommes pas devins? :...:
:joindre:
Et avec, si nécessaire, des infos précises sur ce que tu attends et comment retrouver les données utiles!

:roll:
A+
par curulis57
Hier, 03:59
Forum : Excel - VBA
Sujet : Recopier des données d'un tableau vers un autre
Réponses : 1
Vues : 42

Re: Recopier des données d'un tableau vers un autre

Salut Laliz, :bv3: Un double-clic en 'BASE' [A:B] transcrit les infos demandées dans 'FORMULAIRE'. Le code se trouve dans le module de 'BASE' Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ' If Not Intersect(Target, Range("A2:B" & Rows.Count)) Is Nothing Then If Ta...
par curulis57
Hier, 03:04
Forum : Excel - VBA
Sujet : Copier coller cellules avec valeur de référence
Réponses : 2
Vues : 50

Re: Copier coller cellules avec valeur de référence

Salut Cambino, Salut Zebulon, une solution VBA... Le code est dans le module de 'BASE'. Un double-clic sur 'BASE' [B1] démarre la macro. If Not Intersect(Target, Range("B1")) Is Nothing Then Set sWk = Worksheets("LOCAL") iRow = Range("A" & Rows.Count).End(xlUp).Row tTab1 = Range("A2:B" & iRow).Value...
par curulis57
Hier, 01:37
Forum : Excel - VBA
Sujet : Nouveau en VBA besoin d'aide sur plusieurs points !
Réponses : 7
Vues : 128

Re: Nouveau en VBA besoin d'aide sur plusieurs points !

Salut No-Fear, Galopin, avant, si j'ai le courage, d'aller plus loin dans la ré-écriture, une solution à ta demande initiale. Le code est situé en fin de Sub CommandButton_ValiderAjoutBdsa_Click() DLig = .Range("B23").End(xlDown).Row For x = 13 To 20 iFlag = WorksheetFunction.CountIf(.Range("B24:B" ...
par curulis57
12 octobre 2019, 06:01
Forum : Excel - VBA
Sujet : Compter les jours sans doublon selon liste déroulante
Réponses : 6
Vues : 84

Re: Compter les jours sans doublon selon liste déroulante

Salut iTouss, :bv3: En VBA... Private Sub Worksheet_Change(ByVal Target As Range) ' If Not Intersect(Target, Range("E2")) Is Nothing Then Application.ScreenUpdating = False ' Range("M1:M31").Value = "" For x = 5 To Range("E5").End(xlDown).Row If Month(Cells(x, 5)) = [L2] Then Range("M" & Day(Cells(x...
par curulis57
12 octobre 2019, 03:29
Forum : Excel - VBA
Sujet : Afficher la valeur d'une cellule dans le Caption d'un Command Button
Réponses : 10
Vues : 85

Re: Afficher la valeur d'une cellule dans le Caption d'un Command Button

Salut Storm,

simple, tu initialises ton CommandButton à l'ouverture de l'Userform...
Private Sub UserForm_Activate()
'
Me.CommandButton1.Caption = Sheets("BDD").Range("B2")
'
End Sub
8-)
A+