Résultats de la recherche

  1. Startus

    N° semaine d'une année sur l'autre

    Bonjour à tous et merci pour vos lumières Un petit souci que je n'arrive pas règler... la formule " =ENT(MOD(ENT((D2-2)/7)+0,6;52+5/28))+1" me trouve le numéro de semaine par rapport à une date, jusque là pas de problème... Cette date justement correspond à une date de livraison...
  2. Startus

    Comment.delete ?

    Bonjour à Tous, Dans un module j'ai écrit un code que ne fonctionne pas comme je le voudrai... Sub Ventiler() Dim c As Range For Each c In Range("A4:A500") If c = True Then c.Resize(1, 15).ClearContents If c = True Then c.Offset(0, 9).Comment.Delete...
  3. Startus

    Double Clic ThisWorkbook

    Bonjour à tous, 1°) Dans une Application excel je voudrai activer une feuille nommée "Analyse" lors d'un DoubleClic sur une cellule de feuilles différentes En fait la feuille "Analyse" contient un TCD J'ai donc mis dans le code ThisWorkbook : Private Sub...
  4. Startus

    Format N° Tel Spéciaux

    Bonjour le forum, Dans une cellule j'ai une formule (=INDEX...) qui me renvoie un N° de Tel. Ce N° est standard ("## ## ## ## ##"), mais il arrive que ce N° est spécial ("0 820 ### ###"). Je voudrait que la cellule adopte le bon format en fonction du N° renvoyé... J'ai essayé avec ceci ...
  5. Startus

    Liens Hypertexte qui ne répond pas ?

    Bonsoir à tous, Dans une feuille de calcul j'ai créee une formule : LIEN_HYPERTEXTE(INDEX(Site_Web;EQUIV(Nom_Contact;Contact;0))) La formule va récupérer dans une feuille de donnée la requête qui me l'affiche sous la forme standard d'une adresse Web "www.test.fr" Malheureusement le...
  6. Startus

    Comment utiliser MouseMove

    Bonjour le forum, Sur une feuille, j'ai 26 boutons (Boîte à Outils Controle) nommés respectivement "A","B","C"... Je souhaiterai simplement que lorsque je passe sur un des ces boutons avec la souris, il change de couleur, de manière à ce que la sélection de la lettre soit plus facile...
  7. Startus

    Command button initialize ?

    Bonsoir à tous Dans un Userform j'ai 46 CommandButton. Actuellement j'ai écrit 46 fois ceci : Private Sub CommandButton1_Click() Selection.BackColor = CommandButton1.BackColor End Sub Comment raccourcir ce code ??? Merci
  8. Startus

    Bouton Option et Protection

    Salut à tous, Dans une feuille à laquelle certaines cellules sont vérouillées et d'autres pas, lorsque je protège ma feuille et que je choisi un item d'un bouton radio(sans frame), un message apparaît m'interdisant cette action car la feuille est protègée... Comment remedier à ce...
  9. Startus

    ComboBox & Tableau VBA

    Bonsoir tout le monde, Comment ajouter à la propriété RowSource d'une ComboBox un tableau en mémoire, crée à partir d'une plage de cellule ??? J'ai écrit ce code : Sub Liste() Dim Cible As Object Dim Nbre As Integer, i As Integer Dim Place() As String Nbre =...
  10. Startus

    MsgBox si champs vides ?

    Bonjour tout le monde, Voilà, je me casse la tête sur un problème certainement simple, mais je n'y arrive point. Je m'explique : Dans un Userform, j'ai 2 Textbox et 2 ComboBox + Une CheckBox, je voudrai q'un message s'affiche si l'utilisateur à omis de remplir un champ. Par contre si...
  11. Startus

    Executer code sur cellule protègé

    Bonsoir à tous, Dans une feuille, je souhaiterai vider le contenu de toutes les cellules non protègés... J'ai essayé ceci, mais sans succès ? Sub Test() Dim c As Range For Each c In Range('Données') If c = xlUnlockedCells Then c.ClearContents End If Next c End Sub Merci, pour...
  12. Startus

    Variable sur TextBox

    Bonsoir à tous ... Par soucis de raccoucir mes code j'aimerai modifier une chose dans code, mais jusqu'ici sans succès: Private Sub UserForm_Initialize() ' Initialise la boite TextBox1 = Format(ActiveCell.Offset(0, 0), 'dd/mm') TextBox2 = ActiveCell.Offset(0, 1) TextBox3 =...
  13. Startus

    Valeur Textbox ...

    Salut à tous... Voilà ce qui me tracasse... Dans un Userform je voudrai que mes textbox conservent la dernière valeur saisie... Et ceci même après fermeture du Userform Cela doit être tout bête mais... Est-ce possible, avec des Textbox ou dois-je changer de contrôle ?
  14. Startus

    Checkbox en Boucle ?

    Bonjour tous le monde, Voila, je me casse la tête sur un problème concernant les checkbox à faire tourner dans une boucle. Je m'explique: Dans un Userform nommé 'News' il y a 13 Checkbox, je voudrai que seule les checkbox 2 to 12 soit 11 Checkbox fasse une action lorsque leur valeur =...
  15. Startus

    Cellules Fusionnées et VBA

    Bonjour à tous, Mon problème est simple, malheureusement je me casse la tête dessus...depuis quelques heures... J'ai crée une macro qui s'active en cliquant sur un bouton, elle supprime toutes les données d'une plage de cellule nommée 'Champ' et incrémente 1 à une cellule... Tout marche...
  16. Startus

    MFC en VBA

    Bonjour à tous En complément de la mise en forme conditionnelle, limitée à 3 critères j'utilise ce code, malheureusement pas tout à fait au point... Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim c As Range For Each c In Range('V_Scol.') If c = 1 Then...
  17. Startus

    Formules Complexes Calendrier

    Bonjour à tous, Voilà j'ai réalisé un classeur avec un calendrier mensuel et un calendrier annuel sur deus feuilles différentes... Gestion des Vacances scolaires (Zone A) Gestion des Jours Fériés Gestion des Anniversaires et Fêtes (Ajouter les dates clés en feuille Données, Voir fichier...
  18. Startus

    Trouver 3ème Dimanche

    Bonjour à toutes et à tous... Voilà, je voudrais savoir comment faire pour trouver le 3 dimanche du mois de juin (Fêtes des Pères) avec une formule Merci pour votre aide...
  19. Startus

    Liste déroulante sans doublons

    Bonjour tout le monde, Je cherche à faire une liste déroulante sans doublons Admettons que la colonne A j'ai : RENAULT FEU VERT RENAULT MAXAUTO VULO MAXAUTO Ma liste devrait comporter seuelment : RENAULT ; FEU VERT ; MAXAUTO ; VULCO Si possible sans macro...
  20. Startus

    Récupérer avec INDEX une valeur

    Bonsoir, Premier Point : J'ai apparemment un petit soucis avec cette formule : =INDEX(E10:E33;EQUIV(DATE(ANNEE(AUJOURDHUI());MOIS(AUJOURDHUI())+1;3);C10:C33;0)) Cette dernière récupère une valeur dans un tableau... Pour être plu précis, elle renvoie, la valeur égale à AUJOURDHUI()...