Résultats de la recherche

Merci kamel1504 pour ton non retour de ma proposition de fichier CSV à importer dans Google Agenda.

Non. Tout sur 1 seule colonne A (avec virgule comme séparateur) Anniv Cecile,25/10/2022,25/10/2022 Anniv Chloe,24/10/2022,24/10/2022 Anniv Clement,13/11/2022,13/11/2022

Bonjour Pour ma part j'ai creé un fichier CSV avec les champs suivants Subject,Start Date,End Date Anniv Amandine,29/01/2022,29/01/2022 Ensuite import dans Google Agenda

Bonsoir Sur le lien que je t'ai indiqué tu sauvegardes en format BMP https://commons.wikimedia.org/wiki/Crystal_Clear

Bonjour Adilprodigy & bonjour à tous Regarde ici peut-être https://commons.wikimedia.org/wiki/Crystal_Clear

Bonjour, Essaye Cells(no_ligne, 12) = Val(TextBox1.Value) * Val(TextBox2.Value)

Bonjour, Données/Filtre avancé. Dans ton cas, remplace E11 par E20 par ex A vérifier mais ça fonctionne chez moi (Excel 2010) Cordialement

Bonjour, La plage de ton filtre s'arrête à la ligne 11 et ne prend donc pas les lignes suivantes.

Bonjour, Remplace l = Sheets(ComboBox1.Value).range(End(xlUp).Row + 1 par l = Sheets(ComboBox1.Value).Range("A65536").End(xlUp).Row A tester

Bonjour, Pour ne pas faire apparaitre feuil 3, 6 & 8 Private Sub UserForm_Initialize() Dim FFF(), i& ReDim FFF(0 To 0): FFF(0) = ActiveSheet.Name For i = 1 To Sheets.Count If Sheets(i).Name <> FFF(0) And Sheets(i).Name <> "Feuil3" And Sheets(i).Name <> "Feuil6" And Sheets(i).Name <>...

Oups, il te faut aussi déverrouiller X16 à X19

Bonjour, Regarde case à cocher/Format de contrôle/Protection et décoche "Verrouillé"

C'est parfait ! Merci Paf pour ta réactivité & tes compétences.

Merci pour ta réponse Paf Mon problème c'est que je ne connais, ni la ligne, ni la colonne de fin (variable selon les utilisateurs) Par contre la colonne et la ligne du début, oui J'ai bien rédigé : ActiveSheet.Range("A65536").End(xlUp).Row mais je n'arrive pas à formuler correctement

Bonjour à tous Comment remplacer le D50 par la dernière colonne et la dernière ligne Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect([D2:D50], Target) Is Nothing Then MsgBox "coucou" End If End Sub j'ai testé avec : dercol =...

Merci à Shakki & JBARBE d'avoir planché sur mon problème. En sauvegardant au préalable les clés de registre, tu as la possibilité de les restaurer au cas ou ... En tout cas, merci à ce forum ou j'apprend beaucoup d'astuces. Cordialement

Merci à JBARBE et a Shakki Il s'agissait d'un pb dans base de registre, donc, bien pb de profil Office. A supprimer: HKEY_CURRENT_USER\Software\Microsoft\Office\14.0\Excel A+

Merci à JBARBE et a Shakki Pour JBARBE, oui j'ai utilisé Malwarebytes mais sans succès Pour Shakki oui effectivement j'ai personnalisé mon menu Excel . Comment démarrer Excel sans les add-ins ? Merci à vous !

Merci JBARBE Je suis sous Windows 7 La restauration système ne donne rien (même avec une date bien antérieure à mon pb). Apparemment il s'agit d'un problème de profil office. Mais quant à le résoudre ....

Merci JBARBE Jai suivi, pas à pas, tes indications mais mon pb est toujours là ! Merci de ton aide, et si tu as d'autres solutions, je suis bien évidemment preneur.