Contenu récent par don_pets

et ouais JHA à raison quid des doublons qu'en tu'auras dans ton top 3, 2 personnes qui ont 15

Normal que ça merde. Le frein avec la recherchev c'est que la colonne que tu veux afficher doit impérativement se situer à la droitede ta colonne commune. T'as 3 options : Tu changes l'ordre de tes colonnes Tu imbriques deux formules (equiv et index de mémoire) tu passes par la RechercheX dont...

hello, cela ne m'a pas l'air bien méchant. Tu peux illustrer avec un fichier test light ?

hello, bah écoute comme ça rien de foufou, mais pour pouvoir pleinement répondre, balance un fichier d'exemple de ce que tu aimerais "concrètement" réaliser

mais comme je ne sais toujours pas vraiment avec certitude ce que tu veux, difficile de te répondre

Tellement plus clair .... Bon si je lis entre les lignes tu veux faire plusieurs rechercheX pour faire simple cette formule nécessite que peu d'arguments : la valeur cherchée ; ou tu la cherches ; la colonne que tu veux afficher; qu'est ce tu mets si tu ne la trouves pas ; 0 car tu cherches la...

salut, Alors je ne sais pour les autres, puisque ton fichier a été vu un certain nombre de fois, mais pour ma part, je n'ai absolument rien saisi de ta demande ! Je te cite : " je voudrais remplir les cellules en automatique la cellule E5 utilise une rechercheX pour la remplir pour les autre...

Hello, Tu peux passer par GetOpenFilename avec un truc du genre Dim Fichier As String Dim BDD As Workbook Dim SRC As Workbook Dim DestRange As Range Fichier = Application.GetOpenFilename("Fichiers CSV (*.csv),*.csv") Set BDD = ThisWorkbook Set DestRange =...

Bien sur masque ton onglet cela n'aura aucune incidence sur le reste

Mets un chiffre dans ta cellule toute jaune, et clique sur le bouton à coté

Hum je connais les events pour les double clic, clic droit mais suis pas sur sur pour le clic gauche !

aaah j'avais pas vu ton histoire d'onglet "type" Alors disons que ta feuille1 contient en A1 ton nombre de copies et que ta feuille type s'appelle tralala Dim FeuilType As Worksheet Set FeuilType = ActiveWorkbook.Sheets("Tralala") With Sheets("Feuil1") Application.ScreenUpdating = False...

Hello, imaginons tu mets ta valeur souhaitée en A1. Application.ScreenUpdating = False For x = 1 To Range("A1").Value Sheets.Add after:=Sheets(Sheets.Count) Next x Application.ScreenUpdating = True

Voila, j'ai fait au plus simple, voici les deux codes utilisés en fonction de ce que tu veux recalculer With Sheets(1) Range("I12").FormulaR1C1 = "=NPER(R[-3]C/12,RC[-4],0,RC[-2]*-1,0)/12" Range("I12").Copy Range("I12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone...

Hello, c'est marrant ton truc. Je te prépare une soluce