Contenu récent par sousou

  1. sousou

    Résolu XL 2010 boucle mise en forme grille de données

    Bonjour Grille vraiment différente, pas vraiment le temps à voir!
  2. sousou

    Office 365 Mettre à jour des valeurs d'une base de données en automatique en fonction de critères

    Bonjour essaie cette formule dans la feuille Base Vitesse =SI(MAX(Extraction!D2:E2)>Extraction!D2+10;ENT(MAX(Extraction!D2:E2)/10)*10;Extraction!D2)
  3. sousou

    Office 365 Problème d'erreur 13

    Bonjour problème de définition de variable T'es sur de ton code, il ne semble pas correspondre à ton userform? Tu trouveras sur ce site des gestions d'annuaires
  4. sousou

    XL 2016 Empêcher la sélection/ListBox si ComboBox non rempli

    Ca me surprend si tu & bien mis list_effectif.enabled à false dans ton userform
  5. sousou

    XL 2016 Empêcher la sélection/ListBox si ComboBox non rempli

    Et pourquoi tu n'essaie pas ce que je te proposais?;) Reste enabled tant que la combobox est vide
  6. sousou

    Office 365 Incrémenter numéro de facture

    Tu peux essayer ceci Sur doubleclick de la cellule Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 13 And Target.Offset(-1, 0) <> "" And Target = "" Then num = Right(Target.Offset(-1, 0), 4) Target = Format(Date, "yy") & "/" & Month(Date) &...
  7. sousou

    XL 2016 Empêcher la sélection/ListBox si ComboBox non rempli

    bonjour Si j'ai saisie Après avoir mis de base enabled = false à list-effectif Private Sub ComboBox1_Change() If ComboBox1.ListIndex > -1 Then Me.List_Effectif.Enabled = True End If End Sub
  8. sousou

    Office 365 Incrémenter numéro de facture

    A ca. C Est exact
  9. sousou

    Office 365 Incrémenter numéro de facture

    Ou alors ;) =DROITE(ANNEE(AUJOURDHUI());2)&"/"&TEXTE(MOIS(AUJOURDHUI());"00")&"/"&DROITE(M17;4)+1
  10. sousou

    XL 2016 vba + formes

    Pour le fun http://exceletvosdonnees.free.fr/ecole/index.html
  11. sousou

    XL 2016 vba + formes

    Bonjour En dehors d'un click sur la réponse qui déplace l'image et contrôle la réponse, mais la forme me semble bien compliqué Ne crois-tu pas qu'il y a plus simple? ;)
  12. sousou

    XL 2016 Message box avant impression

    tu pourrais modifier comme ceci. Tester la feuille concernée ici feuille "toto" Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim Reponse If ActiveSheet.Name <> "toto" Then Exit Sub Reponse = MsgBox("Utilisez-vous une feuille 4 étiquettes ?", vbYesNo + vbQuestion, "Attention") If Reponse =...
  13. sousou

    XL 2016 Message box avant impression

    Bonjour Before print: Avant impression! Si tu répond oui tu demandes une impression, il s'en suivra une autre impression demandée avant le before. Tu dois simplement interdire cette imp à la réponse non Essaie comme-ceci Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim Reponse Reponse...
  14. sousou

    XL 2010 vérification de données saisies hors validation

    Tu utilises target dans par exemple évènement change d'une feuille target étant l'objet range renvoyé par l'évènement
  15. sousou

    XL 2010 vérification de données saisies hors validation

    Bonsoir as-tu essayé avec ceci validation.value renvoi vrai si valide et faux si autre chose Target.Validation.Value
Haut Bas