278 résultats trouvés

par Darzou
14 août 2013, 23:26
Forum : Excel - VBA
Sujet : listebox selectif
Réponses : 23
Vues : 501

Re: listebox selectif

Sans fichier, je n'irai pas plus loin...
par Darzou
14 août 2013, 23:09
Forum : Excel - VBA
Sujet : listebox selectif
Réponses : 23
Vues : 501

Re: listebox selectif

Private Sub ListBox2_Click()
Dim J As Long
  with quelquechose
    For J = 8 To .Range("D" & Rows.Count).End(xlUp).Row
      If .Range("D" & J) <> "" and isnumeric(.range("d" & j)) Then Me.ListBox2.AddItem .Range("D" & J)
    Next J
  End With
End Sub
Cdt,

Darzou
par Darzou
14 août 2013, 22:58
Forum : Excel - VBA
Sujet : listebox selectif
Réponses : 23
Vues : 501

Re: listebox selectif

Bonsoir,

1. Il manque un With quelque chose pour que votre code fonctionne...
2. En rajoutant un
if isnumeric(.range("d" & j))
Cdt,

Darzou
par Darzou
14 août 2013, 22:45
Forum : Excel - VBA
Sujet : Listes / menus déroulant
Réponses : 8
Vues : 463

Re: Listes / menus déroulant

Sans chercher bien loin...
https://www.excel-pratique.com/fr/vba/userform.php

Cdt,

Darzou

Edit:
Mais de mémoire, mon codé était assez adaptable ;;)
par Darzou
14 août 2013, 22:03
Forum : Excel - VBA
Sujet : Filtrage particulier de cellule
Réponses : 2
Vues : 301

Re: Filtrage particulier de cellule

Bonsoir,

Pour n'avoir que l'heure:
=--TEXTE(C2-ENT(C2);"h")
Je vous laisse appliquer le filtre.

Cdt,

Darzou
par Darzou
14 août 2013, 18:17
Forum : Excel - VBA
Sujet : : (Copier des lignes automatiquement d'une feuille à l'autre
Réponses : 6
Vues : 480

Re: : (Copier des lignes automatiquement d'une feuille à l'a

Bonjour, Il n'est pas spécialement nécessaire de stipuler une deadline pour une requête faite auprès de personnes qui interviennent bénévolement. Cela ne peut avoir comme effet à mon sens que d'agacer certains membres. Ceci mis à part, Chaque compte a sa propre feuille. [...] Je précise que le nombr...
par Darzou
14 août 2013, 13:09
Forum : Excel - VBA
Sujet : Calcul répartition de frais
Réponses : 5
Vues : 5808

Re: Calcul répartition de frais

Bonjour, J'ai il y a longtemps travaillé un fichier de ce genre (en m'inspirant d'un autre auteur dont je ne me rappelle pas le nom). Le "il y a longtemps" signifie qu'il est possible de tomber sur quelques coquilles et que le code n'est pas spécialement très propre :? ... Voir à cette adresse: http...
par Darzou
13 août 2013, 15:36
Forum : Excel - VBA
Sujet : Créer une feuille modèle
Réponses : 4
Vues : 619

Re: Créer une feuille modèle

Bonjour, Une solution par macro: Option Explicit Dim Flag As Boolean Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim Ws As Worksheet If Flag Or Target.Count > 1 Then Exit Sub Flag = True Application.ScreenUpdating = False For Each Ws In Me.Worksheets Ws.Range(Target.A...
par Darzou
13 août 2013, 01:59
Forum : Excel - VBA
Sujet : Listes / menus déroulant
Réponses : 8
Vues : 463

Re: Listes / menus déroulant

Bonsoir,

En passant par un userform ça devrait pouvoir le faire. Mais c'est vrai qu'avec des données ce serait quand même un peu plus évident de vous répondre.

Dans le fichier joint:
- sheet source = BDD des réponses possibles
- sheet data = les saisies effectuées via l'usf

Cdt,

Darzou
par Darzou
12 août 2013, 04:08
Forum : Excel - VBA
Sujet : Impression en PDF
Réponses : 23
Vues : 1203

Re: Impression en PDF

LePath = "C:\Users\Xou\Desktop\Liaison\" & [G1] & " N°" & [I10] & " " & [G14] & " (" & [A12] & ").pdf"
Le meiux serait quand même que vous appreniez quelques bases sur vba (que vous pouvez trouver sur ce site).

Cdt,

Darzou