Résultats de la recherche

Le premier point est de savoir sur quel OS vous êtes. De mon coté j'ai une ancienne version avec High sierra. Sinon le site de Ron deBruin peut vous aider mais si vous ne faites cela que de temps en temps, pourquoi ne pas aller au plus simple et mettre votre fichier en pièce jointe dans votre...

Je ne suis pas devant mon MAC mais essayez en suivant cette procédure pour configurer mail pour Microsoft 365 https://www.hostpapa.com/knowledgebase/fr/mettre-en-place-la-messagerie-microsoft-365-dans-apple-mail-pour-mac/

Votre dernier courrier est différent de ce que vous demander dans ce fil ... Donc je voudrais comprendre... Serait-ce de configurer mail pour Microsoft 365 ?

Bonjour, Quel est le répertoire exact dans le dossier Container ? Sur mac les slash sont inversés --> / et pas de que vous écrivez --> \ vous devriez avoir une truc du genre --> "/Users/eric/Library/Containers/Microsoft Excel/Data/Documents" si j'ai cette donnée, je peux vous donner le code...

Sans lancer le code depuis le bouton bleu allez sur l'userform faites double clic sur le bouton Cela doit vous amener au code Private Sub CommandButton1_Click() Si ce n'est pas le cas vous avez modifié quelque chose EDIT : en regardant votre dernier fichier posté, pourquoi êtes-vous allé...

Mais je vous ai écrit les erreurs.... Dans mon post précédent point 4, le code est comme ceci Private Sub effacer() ComboBox1 = vbNullString ComboBox2 = vbNullString TextBox1 = vbNullString TextBox2 = vbNullString End Sub et pas comme ce que vous mettez Private Sub effacer() ComboBox1 =...

Vous avez modifié mais la macro Effacer n'est plus dans l'USF. Je ne vous ai pas dit de la supprimer. Vous devez la mettre. Sinon pourquoi vous me postez le fichier ? Faites un essai afin de voir si cela fonctionne

Oui c'est bon sauf le code Effacer. Vous devez terminer par END SUB et non comme je le vois dans le fichier où vous avez mis un Private....

Ok là il y est. C'est bon Voici la suite à placer dans l'userform 1. Juste en dessous de "Option explicit" ou au dessus, mettez cette instruction Dim flag as boolean --------------------------- Ensuite collez les codes ci-dessous dans l'userform 2. Code lié directement au bouton Private Sub...

Non dans votre fichier posté le code initalize n'y est pas S'il n'y est pas les deux combo seront vides Dites moi

Bonjour, Ok mais le code initialize que je vous ai donné ici --> https://excel-downloads.com/threads/saisie-de-resultats-avec-userform.20080285/post-20621301 n'est pas dans le fichier Mais vous n'avez pas de souci avec "option explicit". l'instruction est bien placée Donc en premier remettez...

Facile à faire. - Allez dans l'éditeur VBA et cliquez sur l'userform - Allez dans le menu Affichage et choisir "Boite à outils" - passez votre souris sur les icones afin de trouver "Bouton de commande" - Cliquez dessus et dessiner sur votre userform Une fois dessiné, double clik sur le bouton...

Donc c'est la colonne Z qui va s'allonger ? ----------------------------------------------- Faites déjà ceci 1. allez dans l'éditeur VBA puis insérer un Module 2. Collez ce code dans le module Sub ouverture_usf() UserForm1.Show End Sub 3. Sur votre feuille "Participants", click droite sur le...

Bonjour, En colonne Z le nombre de joueurs est de 7. Peut-il y a avoir plus de 7 joueurs ou pas ? Crdlt Edit : après il faut savoir comment vous savez la ligne dans laquelle on ajoute les résultats notamment parce que je vois en colonne B et N que les joueurs jouent plusieurs fois ensemble. on...

- Dans mon post précédent, vous pouvez plutôt remplacer le .pivottables.count par le chiffre 1, si vous avez 1 seul TCD sur une même feuille - Si vous avez plusieurs TCD sur une même feuille, comme dans votre fichier posté d'ailleurs, vous pouvez utilisez ce code-ci Sub Macro1() Dim pt As...

Re Comme ceci dans votre fichier Sub Macro1() Dim pt As PivotField For Each pt In ActiveSheet.PivotTables("Tableau croisé dynamique3").PivotFields On Error Resume Next pt.ShowDetail = True Next pt End Sub ou ceci si vous avez plusieurs TCD concernés Sub Macro1() Dim pt As PivotField...

Oui exact. Je vous remets tout le code dans lequel j'ai modifié quelques lignes Sub Maj() Dim i As Byte Dim tablo() Dim dlg As Integer Dim plage As Range With Sheets("Produits") dcol = .Cells(24, Columns.Count).End(xlToLeft).Column dlg = .Cells(Rows.Count, dcol).End(xlUp).Row If dlg...

Vous ne m'avez pas compris. Il n'y a pas de deuxième code, je vous ai écrit que j'ai remplacé le code que j'avais mis à 10h41 Donc oubliez ce que vous avez copié dans le fichier et recopiez à nouveau ce code placé dans le post et associez-le à nouveau à votre bouton.

Ah ok. je comprends En fait vous avez copié le code que j'avais placé ce matin. Mais là je l'ai modifié vers 13H et vous aviez déjà repris la version de ce matin Donc supprimez celui dans le fichier et remplacez-le. Vous verrez que j'ai ajouté un With sheets("Porduits")..... Désolé....

Bonjour Pourquoi faire un code pour cela ? Il vous suffit de cliquer dans le TCD puis click droite et choisir "Option du Tableau croisé..." Sous l'onglet Affichage, décocher la case "afficher les boutons développer/Réduire Cordialement