Contenu récent par Minick

Salut, Quelque chose comme: CASE WHEN cl.CD_EVT IN ('COPVT','XCOPVT','3 COPVT','COCVT','XCOCVT','3 COCVT') THEN 'OUI' ELSE 'NON' END AS VENTE ++

Re : Adapter CENTILE.INCLURE à VBA La fonction doit venir d'un complement car moi je ne l'ai pas...

Re : Adapter CENTILE.INCLURE à VBA Salut, Le soucis ne viendrait pas simplement de ca: "A1:A&i" Change comme cela: "A1:A" & i

Re : Transformation Excel en Txt Salut, Le cadrage se fait a droite ou a gauche ou les 2 selon la colonne. Par exemple colonne B: 0005 devient ......0005 ou 0005...... (les points seraient de "blancs" biensur)

Re : vba : comportement différent en fonction version xls Salut, Comme ceci : If Application.version = "12.0" then userform1.top = range("c1").top Else userform1.top = range("b1").top End If

Re : [VBA] Supprimer colonnes identiques Salut, Une autre version: Option Explicit Sub Masque() Dim CptCol As Integer Dim Serie1 As String, Serie2 As String Serie1 = Join(Application.Transpose(Range("A3:a23"))) For CptCol = 2 To 23 Serie2 =...

Re : [VBA] Obligé de valider manuellement pour afficher le résultat Dans ton code tu dis que tu vas utiliser une formule du style L1C1 ...FormulaR1C1=... Mais dans la formule tu indiques des references de colonne du style A, B, C..... extract!A:A,CONCATENATE(R1C5,RC[-3]),extract!K:K Soit tu...

Re : date et MFC Peut-etre comme cela alors: =ET(A2<>"";D2="";AUJOURDHUI()-C2>10)

Re : [VBA] Obligé de valider manuellement pour afficher le résultat Salut, Pas certain,mais tu melanges Formule style L1C1 et A1: Peut etre en mettant: Range("E2:E" & Range("D65536").End(xlUp).Row).FormulaR1C1 = "=SUMIF(extract!C1,CONCATENATE(R1C5,RC[-3]),extract!C11)"

Re : date et MFC Salut, Si j'ai bien compris, avec 1 seule condition: =SI(ET(A2<>"";D2<>"");AUJOURDHUI()-C2>10;"")

Re : Choix d'un classeur par msgbox à partir d'une macro Salut, Au temps pour moi, je n'avais pas tenu compte du fait que tu ne serais pas forcement sur le lecteur K. Ca devrait mieux passer avec: ChDrive "k" ChDir "K:\ch1\sch1\" nomclasseur = Application.GetOpenFilename("Fichiers...

Re : Relier des nombres (dans un tableau) Salut, Juste pour le plaisir: Option Explicit Sub Scan() Dim Zone As Range, Cellule As Range Dim ValOk As String Dim Ligne As Integer, Colonne As Integer Application.ScreenUpdating = False Set Zone =...

Re : Choix d'un classeur par msgbox à partir d'une macro Salut, Quelque chose comme ca... ChDir "K:\ch1\sch1\" nomclasseur = Application.GetOpenFilename("Fichiers Excel,*.xls") If Dir(nomclasseur) <> "" Then . . Ton code . . End If

Re : supprimer ligne contenant X ou Y dans colonne A Salut, A verifier, mais il y a de fortes chances que dans la colonne 5 tu ais une valeur d'erreur (#N/A ou autres). Verifie cela.

Re : Limites de la boucle "For...Next" VBA Salut a tous, En passant par 2 colonnes intermediaires et des formules toutes simples ca doit etre quasi instantanne (enfin si j'ai bien compris...) Sub seq1() Application.ScreenUpdating = False Range("IU1").Value = "?"...