Listbox conditonnelle

J

julien34

XLDnaute Occasionnel

• 1 Octobre 2011

• #121

Re : Listbox conditonnelle

Pour info j'ai essayé avec

Code:

Dim Rep As String
Rep = "D:\JULIEN\APPLI\" 
If Dir(Rep, vbDirectory) <> "" Then
    Application.Dialogs(xlDialogOpen).Show Rep
Else
    MsgBox "Chemin introuvable"
End If

End Sub

Il ne me dit pas chemin introuvable, il m'ouvre documents !!!!!!!!!!!!!!

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 1 Octobre 2011

• #122

Re : Listbox conditonnelle

Re yaloo,

J'ouvre un sujet je t'envoie le lien !

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 1 Octobre 2011

• #123

Re : Listbox conditonnelle

Bonjour Julien, le forum,

Tu peux peut être changer d'abord ton répertoire en mettant chDir E:\Julien\Appli\" avant d'ouvrir.

Sinon, si tu veux toujours qu'Excel soit ouvert dans ce répertoire tu peux aller dans les options d'Excel, dans "enregistrement" et modifier le "Dossier par défaut".

Si c'est uniquement avec ce fichier là, tu peux le mentionner dans ton raccourci dans les options "propriétés". Ou changer ton répertoire à l'ouverture de ton fichier toujours avec ChDir dans ThisWorkbook avec Private Sub Workbook_Open()

A+

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 1 Octobre 2011

• #124

Re : Listbox conditonnelle

Bonjour,

Chez moi ta macro fonctionne en mettant bien sûr le répertoire approprié

Yaloo

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 2 Octobre 2011

• #125

Re : Listbox conditonnelle

Bonjour Yaloo, le forum

J'ai changé le dossier par défaut dans les options excel. Bonne idée !
Ca me convient !

Merci Yaloo
A+

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 2 Octobre 2011

• #126

Re : Listbox conditonnelle

Re yaloo, le forum

Quelqu'un peut il m'expliquer où j'ai fais une faute
Il me dit else sans if

Code:

If w1.Range("B16").Value = "Constructeur" Then w.Range("F29").Value = "Incluse"
    Else
    w1.Range("B16").Value = w.Range("F29").Value
    End If

D'avance merci ,
Julien

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 2 Octobre 2011

• #127

Re : Listbox conditonnelle

Bonjour Julien, le forum,

VB:

If w1.Range("B16").Value = "Constructeur" Then w.Range("F29").Value = "Incluse"
Else
w1.Range("B16").Value = w.Range("F29").Value
End If

Peut être là

VB:

If w1.Range("B16").Value = "Constructeur" Then
w.Range("F29").Value = "Incluse"
Else
w1.Range("B16").Value = w.Range("F29").Value
End If

Soit tu écrit tout sur la même ligne, soit il faut décomposé.

A+

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 2 Octobre 2011

• #128

Re : Listbox conditonnelle

Re Yaloo,

Effectivement ça marche !

Capricieux excel VBA .......
Merci,

Julien

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 2 Octobre 2011

• #129

Re : Listbox conditonnelle

Re Yaloo,

Le code passe mais il n’exécute pas la condition demandée!
w1 est mon formulaire
w est mon fichier facture

Je voudrais que si la cellule B16 ds le form est "constructeur" alors ds la cellule F29 de la facture il marque "incluse"
(ça ca fonctionne)

sinon
tu copies simplement la valeur de la cellule B16 ds le form ds la cellule F29 de la facture
(cette condition ne fonctionne pas)

Tu vois pourquoi ma condition ne fonctionne pas?

Merci d'avance
A+

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 2 Octobre 2011

• #130

Re : Listbox conditonnelle

Re,

VB:

If w1.Range("B16").Value = "Constructeur" Then
w.Range("F29").Value = "Incluse"
Else
w1.Range("B16").Value = w.Range("F29").Value
End If

VB:

If w1.Range("B16").Value = "Constructeur" Then
w.Range("F29").Value = "Incluse"
Else
w.Range("F29").Value = w1.Range("B16").Value
End If

Regardes ta première condition
w.Range("F29").Value = "Incluse"
Pour ta seconde condition c'est identique
w.Range("F29").Value = w1.Range("B16").Value

Tu commences par w.Range("F29").Value

A+

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 2 Octobre 2011

• #131

Re : Listbox conditonnelle

Ok c'est noté
Merci ,

A+

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 7 Octobre 2011

• #132

Re : Listbox conditonnelle

Bonsoir le forum, Yaloo,

Quelqu'un pourrait il me dire pourquoi cette petite macro ne fonctionne pas?
Où est l'erreur svp

D'avance merci
Julien

Code:

Sub Macro1()

If Range("M4") = "OK" Then
Range("I5").Select
Selection.NumberFormat = "0.00%"
Else
Range("I5").Select
Selection.NumberFormat = "General"
End If
End Sub

Je souhaite que quand M4=OK alors il formate la cellule I5 en pourcent sinon en il laisse la cellule en standard
PS:M4 est dans une liste déroulante, je ne sais pas si ça peut jouer!

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 7 Octobre 2011

• #133

Re : Listbox conditonnelle

Bonjour Julien, le forum,

Essaie avec ceci :

Sub Macro1()
If Range("B1") = "OK" Then
Range("A1").Style = "Percent"
Else
Range("A1").NumberFormat = "General"
End If
End Sub

Cliquez pour agrandir...

J'ai testé ça fonctionne

Yaloo

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 7 Octobre 2011

• #134

Re : Listbox conditonnelle

Merci bcp Yaloo

A+

 

Vote positif 0 Vote négatif