1089 résultats trouvés

par Patty5046
28 avril 2018, 16:53
Forum : Excel - VBA
Sujet : bouton de macro génére une erreur
Réponses : 9
Vues : 287

Re: bouton de macro génére une erreur

Bonjour

Peux-tu dire exactement quel message d'erreur tu as ? et sur quelle ligne cela se produit ?

Bye
par Patty5046
26 avril 2018, 16:03
Forum : Excel - VBA
Sujet : bouton de macro génére une erreur
Réponses : 9
Vues : 287

Re: bouton de macro génére une erreur

Bonjour
Je ne sais pas l'erreur que tu peux avoir, mais chez moi tout de passe bien en cliquant sur ce bouton !!!???
Désolée
A+
par Patty5046
26 avril 2018, 14:36
Forum : Excel - VBA
Sujet : bouton de macro génére une erreur
Réponses : 9
Vues : 287

Re: bouton de macro génére une erreur

Bonjour
Peux-tu adresser ton fichier ?

Merci
par Patty5046
12 avril 2018, 16:45
Forum : Excel - VBA
Sujet : Extraire un bout d'une chaine à partir d'un caractère spécial #
Réponses : 5
Vues : 169

Re: Extraire un bout d'une chaine à partir d'un caractère spécial #

Bonjour

En testant :
If Pos <> 0
Cela signifie que le caractère est trouvé, et si Pos = 0 , le caractère n'existe pas dans la chaîne

A+
par Patty5046
12 avril 2018, 14:38
Forum : Excel - VBA
Sujet : Extraire un bout d'une chaine à partir d'un caractère spécial #
Réponses : 5
Vues : 169

Re: Extraire un bout d'une chaine à partir d'un caractère spécial #

Bonjour
Chaine = "s:\affaires\nouvelles\788\78823\3- pls cadd\200kv bastia-lucciana\supports_scenario2bis\#1#s_w.tow"
pos = InStr(1, Chaine, "#")
nouvchaine = Right(Chaine, Len(Chaine) - (pos - 1))
MsgBox nouvchaine
Bonne journée
par Patty5046
28 mars 2018, 17:02
Forum : Excel - VBA
Sujet : Macro concatener avec condition
Réponses : 10
Vues : 267

Re: Macro concatener avec condition

Bonjour

A voir
NAMS_CCL_V3.xlsm
(23.22 Kio) Téléchargé 47 fois
Bye
par Patty5046
27 mars 2018, 14:47
Forum : Excel - VBA
Sujet : Impossible de définir la propriété "Value" le type ne correspond pas
Réponses : 2
Vues : 192

Re: Impossible de définir la propriété "Value" le type ne correspond pas

Bonjour With Sheets("GestionLISTE") For Each cell In .Range("J3:J" & .[J100].End(xlUp).Row) If cell.Value <> "" Then list1.Item(cell.Value) = cell.Value Next cell piece.TextBox_delai_fournisseur1_piece = list1.Items End With 'remplissage de la liste Delais (TextBox_delai_fournisseur2_piece) Set list...
par Patty5046
26 mars 2018, 16:47
Forum : Excel - VBA
Sujet : Supprimer ligne vide
Réponses : 33
Vues : 519

Re: Supprimer ligne vide

Bonjour Sub Supprime_lignes_vides() Dim I As Long Application.ScreenUpdating = False With ActiveSheet For I = .UsedRange.Rows.Count To 1 Step -1 If Application.CountA(Rows(I)) = 0 Then Rows(I).Delete End If Next I End With Application.ScreenUpdating = True End Sub A voir
par Patty5046
23 mars 2018, 15:49
Forum : Excel - VBA
Sujet : Msgbox dans combobox pour obliger de choisir
Réponses : 5
Vues : 265

Re: Msgbox dans combobox pour obliger de choisir

Bonjour

Ton fichier
Facturation_V1.xls
(452 Kio) Téléchargé 47 fois
Bye
par Patty5046
23 mars 2018, 15:32
Forum : Excel - VBA
Sujet : Report de valeurs dans 2 tableaux
Réponses : 9
Vues : 258

Re: Report de valeurs dans 2 tableaux

Bonjour

Peut-être avec un extrait de fichier représentant ton problème, cela ira peut-être mieux pour que quelqu'un se penche sur ton cas ??

Merci