Contenu récent par bérylion

Re- bon j'ai pas 'exactement' ce que je voulais mais je me suis dépatouillé autrement je passe par un dico pour affecter les couples lettre/valeur ça me permet de pouvoir écrire mes formules plus facilement ce qui était la raison principale de ma demande et du coup mon pb est résolu pour ceux...

Bonjour sylvanu Bel effort, mais c'est déjà ce que j'obtiens avec mon bidule Ce que j'essaie d'obtenir c'est que la valeur de la textbox1 soit adressée au nom contenu dans T(1) et pas qu'elle remplace la valeur contenue dans T1 Je pourrais me débrouiller sans mais ça me simplifierait énormément...

Salut la foule j'essaie désepérément d'affecter par une boucle, des valeurs à des noms de variables contenus dans un tableau. en gros, je créé un userform dont le nbr de TextBox est variable, pour renseigner des valeurs et faire ensuite un calcul savant et alambiqué jusque la tout va bien, ça...

Visiblement ça n'inspire personne 😕 Allez, un pti bump histoire de le remettre en haut de pile avant de l'enterrer définitivement...

Salut la foule j'ai un usf qui tourne très bien pour faire des recherches dans des listes, depuis lequel je peux drag'n drop directement les items d'une listview vers les cellules du classeur par contre je bloque sur la méthode inverse, à savoir drag'n drop le texte d'une cellule dans un...

si tu veux récupérer tes 700 lignes, try this : Sub MaProcedure() Application.EnableEvents = Not Application.EnableEvents Dim Sh1 As Worksheet, dl As Long, Tb(), i As Long Set Sh1 = ThisWorkbook.Worksheets("BD") dl = Sh1.Range("A" & Sh1.Rows.Count).End(xlUp).Row Tb =...

oui, ca n'affiche "que" 200 lignes si tu veux la totale, il faut les envoyer directement dans un fichier texte et pas dans la fenetre exec ;) [EDIT : ] pour etre tout a fait précis, c'est 200 lignes de 1021 caractères maxi si tu dépasses, alors ca va a la ligne et ca comptera pour 2...

voila !

tout est correct chez moi, apres avoir inversé les 2 lignes suivantes pour ne pas générer d'erreur : ca : For i = 1 To UBound(Tb) Tb(i, 1) = "Trim" & DatePart("q", Tb(i, 1)) 'bons résultats Debug.Print "Trim" & DatePart("q", Tb(i, 1)) 'erreur d'execution 13, incompatilité de...

Les touches F1 et F8 sont tes meilleures amies... pour essayer de répondre simplement à ta question : la macro de départ est une procédure événementielle (c.a.d qui se déclenche automatiquement lorsque l'event choisi se produit ; dans ton cas un changement de valeur dans une cellule) si les...

ah bin c'etait juste pour te donner une piste, maintenant si tu veux 'la totale' essaye ça : Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Count = 1 Then If .Column = 14 And .Offset(0, -1) = "TvaDec" Then With Application .EnableEvents =...

bonjour tout simplement parce que dans la ligne : Tb(i, 1) = "Trim" & DatePart("q", Tb(i, 1)) 'bons résultats ta variable Tb(i,1) est convertie de Date en String et qu'a la ligne suivante : Debug.Print "Trim" & DatePart("q", Tb(i, 1)) 'erreur d'execution 13, incompatilité de type tu donnes...

bonjour, je suis encore sur xl2010 mais en principe ça devrait faire la maille : .MonthView1.Value = Date

salut tu peux essayer un truc à base de : Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Column = 13 And .Offset(0, -1) = "TvaDec" Then Call hello2 End With End Sub

merci pour la réponse ;) ajouter les champs année/trimestre/mois je sais faire, mais ça m'intéresse pas dans ce cas précis. je cherche à filtrer directement sur le champ 'date' je vais me débrouiller autrement. le screen que j'ai mis provient d'un TCD élaboré à partir d'un cube et pas d'une...