Contenu récent par piga25

Bonjour, Peut être en modifiant le code pour l'ajout d'une nouvelle ligne comme cela: Sub NouvelleLigne() Sheets("Feuil1").Unprotect Sheets("Feuil1").ListObjects("Tableau1").ListRows.Add Range("B" & Rows.Count).End(xlUp).Select Range("F" & Rows.Count).End(xlUp).Value =...

Bonjour, Pour la seconde question Il y a cela sur le forum : https://excel-downloads.com/threads/deplacer-un-objet-apres-avoir-scrolle-afin-quil-soit-toujours-visible.20082567/post-20640117

Re, Encore plus simple: =SI(C2=0;"";92-(RANG(C2;$C$2:$C$44;0))*2)

RE, Autre façon sans colonne supplémentaire : =SI(C2=0;"";CHOISIR(RANG(C2;$C$2:$C$44;0);90;88;86;84;82;80;78;76;74;72;70;68;66;64;62;60;58;56;54;52;50;48;44;42;40;38;36;34;32;30;28;26;24;22;20;18;16;14;12;10;8;6;4;2)) Edit: Pas rafraichie njhub

Bonjour, Un autre façon sans utiliser grande valeur à mettre en D2 et à recopier vers le bas: =SI(C2=0;"";INDEX($G$2:$G$44;RANG(C2;$C$2:$C$44;0))) Puis en G2 mettre 90 et en G3 mettre =G2-2 puis recopier vers le bas.

Bonjour, A mettre en B2 et à valider par les touches CTRL Maj Entrée =SIERREUR(INDEX($A$2:A30;PETITE.VALEUR(SI($A$2:A30<>"";LIGNE(INDIRECT("1:"&LIGNES($A$2:A30))));LIGNES($1:1)));"-") puis à recopier vers le bas

Bonjour, En passant par un autre tableau je pense que cela est réalisable. Voir sur la feuille 2

Bonjour, Une formule ne changera pas la couleur d'une cellule (texte, fond . . .). Il faut passer pas la mise en forme conditionnelle.

Bonjour, Peut être comme cela si j'ai bien compris

Bonjour; Si vous voulez que votre filtre fonctionne il faut sélectionner toutes vos données (au minimum jusqu'à la ligne 23) puis ensuite décocher "vide"

Bonjour, Mettre en G10 et G12 en format personnalisé (mmmm aaaa) puis inscrire une date quelconque dans le mois et l'année voulu. En H10 et H12 mettre cette formule : =SOMMEPROD((Tableau1[Montant])*(ANNEE(Tableau1[Date])-ANNEE(G10))*(MOIS(Tableau1[Date])=MOIS(G10))) puis en H8 additionner H10+H12

bonjour à tous, extraction des doublons par VBA

Bonjour, Sélectionner les deux listes puis faire puis avec une mise en forme conditionnelle

Re peut être comme cela: Private Sub ComboBox5_Change() TextBox13 = DateAdd('d',15, TextBox14) End Sub

Re, Modifier code : 'TextBox13.Value = Format(Date, "dd mmmm yyyy") en TextBox13.Value = DateValue(Now) comme cela à l'ouverture de l'userform la textbox13 est automatiquement renseignée. Private Sub UserForm_Initialize() Dim Plage As Range With Worksheets("Bdd") Set Nom1 = .Range("A2")...