Contenu récent par pilou76

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 =...