Contenu récent par ftho

Re : MonthView Affichage du mois suivant Bonjour, Essaie comme ceci Private Sub UserForm_Initialize() Dim jour As Byte, mois As Byte, annee As Integer jour = 1 If Month(Now) = 12 Then mois = 1 annee = Year(Now) + 1 Else mois =...

Re : Colonne ?? Bonjour, Une solution éventuelle MsgBox Split(Cells(1, 124).Address, "$")(1) Cdlt

Re : SOS BitDefender m'a bouffé un fichier Bonjour, Je ne connais pas spécialement BitDefender mais en allant jeter un oeil sur leur forum ce n'est apparement pas un cas isolé. une des méthodes préconisées et qui a l'air de fonctionner est d'exclure ce fichier dans l'antivirus Cdlt

Re : Mastermind avec un code de 5 chiffres Bonjour Toutou et Catrice Un seul petit inconvénient à ta solution Catrice, c'est que par exemple, comme tirage tu as : 1 2 3 4 5 et que comme solution tu donnes : 1 1 1 1 1 il te dira 1 bon chiffre bien placé et 4 bon chiffres mal placés...

Re : creation d'onglets auto Bonjour, Essaie ceci Sub test() Dim i As Integer, x As Integer, Verif As Boolean With Sheets("Données") '<-- adapter le nom de la feuille 'boucle de la ligne 1 à la dernière ligne de la colonne A For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row...

Re : Zoomer / Dézoomer une image par son centre Dans la procédure appelée par le clic sur l'image, tu peux utiliser l'instruction Application.Caller qui renvoie le nom de l'objet. Pour récupérer le n° de l'image, tu peux essayer ceci Range("A1") = Split(Application.Caller, " ")(1)

Re : Zoomer / Dézoomer une image par son centre Shapes("Image i") doit s'écrire Shapes("Image " & i) Pourquoi utiliser une Fonction et pas une Sub ? Une Fonction sert à renvoyer une valeur, pas à faire une mise en forme. Cdlt

Re : Zoomer / Dézoomer une image par son centre Bonjour, Ci-joint un petit exemple de dimensionnement de l'image via une toupie. La position de l'image reste centrée sur la plage de cellules prédéfinies. Cdlt

Re : Message sur commande bouton Oui je te le confirme ;) Si c'est nécessaire, afin que les utilisateurs n'introduisent pas n'importe quoi, on peut pousser un peu en imposant par exemple un certain type de saisie, un nombre min. ou max. de caractères, les 3 premiers caractères...

Re : compter que le visible Bonjour, Tu peux essayer ceci : Sub test55() Dim plage As Range, DerL As Integer With Sheets("Feuil1") '<-- nom de la feuille à adapter DerL = .Cells(Rows.Count, 1).End(xlUp).Row '<-- dernière ligne utilisée de la colonne A Set plage = Range("A2:A"...

Re : Message sur commande bouton mmm...si j'ai bien compris ce que tu souhaitais, c'est un truc de ce genre (à insérer dans l'événement click du bouton) Private Sub CommandButton1_Click() Dim MaVariable As String MaVariable = InputBox("Introduisez la ref. client") If MaVariable = ""...

Re : Message sur commande bouton Bonjour, On peut afficher une "info bulle" sur un bouton inséré sur un UserForm (propriété ControlTipText) ou sur un bouton inséré sur une barre de menu (propriété ToolTipText) mais il me semble que ce n'est pas possible de le faire pour un bouton directement...

Re : RechercheV dans Userform Bonjour, Au lieu de charger dans la Combo uniquement les n° de contrat, tu peux faire une Combo à 3 colonnes (propriété ColumnCount = 3) contenant toutes les infos en fixant la largeur des colonnes 2 et 3 à 0 (propriété ColumnWidth = 1pt; 0pt; 0pt) et ensuite...

Re : liste déroulante réversible Bonjour, As-tu essayé ? Parce que la cellule B7 prend en compte la modification

Re : Algorithmes Bonsoir, en effet, l'énoncé est bizarre, il me semble que cela devrait plutôt être phrase1="x divisible par 2" phrase2="x divisible par 2 ou 6" phrase3="x non divisible par 2 ou 6" Si (x/2)<>arrondi(x/2) alors ecrire phrase3 Sinon Si (x/6)=arrondi(x/6) alors...