Résultats de la recherche

Bonjour, Je suis à la recherche d'une modification de code. Ce code oblige de mettre les noms en majuscule j'aimerais que les noms se mettent également en gras. Ceci est mon code Private Sub Worksheet_Change(ByVal Target As Range) Static EnCours As Boolean If EnCours Then Exit...

Bonjour Voila est il possible de remplacer USF par un MsgBox dans l'exemple ci-dessous. Je joint mon fichier. Merci d'avance et bonne journée Max

Bonjour, J'aimerais savoir comment faire pour calculer la date en fonction du N° de la semaine donnée dans un USF Je joint mon fichier. Merci d'avance et bonne journée Max

Bonjour Je suis à la recherche d'une ligne de code pour ouvrir un USF en cliquant dans une cellule "de la colonne "E" Un très grand merci à tout ceux qui pourront m'aider... Cordialement Max

Bonjour Voila j'aimerais ouvrir une combobox au survol du curseur mais je ne connais pas le code j'ai trouver ceci: Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Me.ComboBox1.DropDown Mais quand je click sur un...

Bonjour, J'ai un USF, comprenant TextBox et ComBobox je suis à la recherche d'un code pour trie dans la ComBobox Un très grand merci à tout ceux qui pourront m'aider... Ci joint le fichier exemple sera plus parlant Cordialement Max

Bonjour, J'ai un USF, comprenant une TextBox dans laquelle je renseigne un N° Tél. Je suis à la recherche d' un code pour forcer un texte numérique dans un textBox avec message. Un très grand merci à tout ceux qui pourront m'aider... Cordialement Max

Bonjour, Je suis à la recherche d' un code pour MFC Voila j'ai de "A1 à J300" des cellules avec des infos Toute ces cellule ont un quadrillage et j'aimerais que lorsque dans les cellule de la colonne "B" il n'y a pas d'infos, la ligne de "B à j" n'a pas de quadrillage. Un très grand...

Bonjour, Je recherche une façon de trier une liste de nom et adresse par ordre alpha et ajouter au début de chaque groupe de nom de la premiére lettre A ou B etc. J'ai beau chercher, je n'ai rien trouvé. Avez-vous une solution? Ci joint le fichier exemple qui sera plus parlant...

Bonjour, C'est bon j'ai trouvé Cordialement Max

Bonjour J'ai un code pour imprimer qui est long je pense qu'il y a un problème si quelqu'un pourrez me dire ou est le beug ? Private Sub CommandButton1_Click() ' Bouton Sélection Imprimante Application.Dialogs(xlDialogPrinterSetup).Show ' Apercu avant imprime...

Bonjour Voila je doit imprimer un document qui ne tiens dans une feuille. Ma question peut on réduire le document de façon que lorsque l'on imprime le tout rentre dans une feuille. Un très grand merci pour celui ou celle qui pourra m'aider…….. Cordialement Max

Bonjour Je souhaiterais effacer a l'aide d'un bouton les bordures se trouvant en "A4:X60" de ma feuil2 en passant par VBA. Un très grand merci pour celui ou celle qui pourra m'aider…….. Cordialement Max

Bonjour, Voila j'ai une feuille auquel j'ai des Mise en Forme conditionnelle, cette feuille je la copie via un code VBA pour l'envoyer sur la feuil2 jusque la tous marche très bien. Quand je veut effacer la feuil2 j'applique le code ci-dessous Sub Efface_Click()...

Bonjour, Voila je voudrais copier les colonnes "E4:G53" et "I4:U53" se trouvant sur la feuil20 vers la feuil21 dans le colonnes "A4:C53" et "D4:P53" j'ai mis comme code ceci mais ne fonctionne pas bien sur: Sub Copy_Click() Sheets("Feuil21").Select Sheets(21).Range("A4:C53") =...

Bonjour, Je suis à la recherche d'une formule que: Sidans les cellules "Q4 à Q51"sont >0 alors =SEM 47. J'ai cette formule mais sa beug ? =SI(Q4:Q51<>"";"SEM 47";"") Un très grand merci pour celui ou celle qui pourra m'aider…….. Cordialement Max

Bonjour, Voila j'aimerais copier les cellules de la feuil1 en blanc vers la feuil2 avec les mêmes configuration Un très grand merci pour celui ou celle qui pourra m'aider…….. Je joint mon fichier qui seras plus explicit Cordialement Max

Bonjour, Je suis a la recherche d'une formule "SI" J'ai joint mon fichier auquel il y a les explications car se n'est évident d'expliquer Un très grand merci à tout ceux qui pourront m'aider... Cordialement Max

Bonjour, J'aimerais protéger en écriture toute ma feuille sauf les cellules "K4 à Y50" donc j'ai sélectionné les cellules "K4 à Y50" / Format des cellules / décocher verrouiller et Révision / protéger la feuille. Toute la feuille sauf les cellules "K4 à Y50" sont protéger en écriture, le...

Bonsoir Comment peut-on faire cohabités deux Private Sub Worksheet_Change(ByVal Target As Range) Dans la même feuille Un très grand merci à tout ceux qui pourront m'aider... Cordialement Max