Bonsoir,
j'ai une feuille excel alimentée automatiquement par une autre feuille excel..
j'aimerais que les 4 cellules à droite des 2 cellule J40 et J45,respectent
le format d'origine.
a savoir que si J40= Taux de "machin" alors format pourcentage sur les 4
cellules de droite sinon si J40= Nombre de "machin"alors format standard sur
les 4 cellules de droite ..
je vous laisse ci joint le code
si J45=Efficacité de "machin" alors format pourcentage sur les 4 cellules de
droite sinon si J45= Montant de ""machin alors format standard sur les 4
cellules de droite
Private Sub Worksheet_Activate()
If Left(Range("J45").Value, 4) = "Taux" Then
Range("N45:Q45").NumberFormat = "0.00%"
ElseIf Left(Range("J45").Value, 6) = "Nombre" Then
Range("N45:Q45").NumberFormat = "General"
ElseIf Left(Range("J40").Value, 10) = "Efficacité" Then
Range("N40:Q40").NumberFormat = "0.00%"
ElseIf Left(Range("J40").Value, 7) = "Montant" Then
Range("N40:Q40").NumberFormat = "General"
End If
End Sub
apparemment cela n'est suivi d'aucun effet sur le format...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JLuc
*Bonjour ALF*, tu compare les quatre premieres lettres avec une chaine plus longue, ce n'est pas bon. Tu ne pourra jamais avoir une égalité.
Select Case UCase(Left(Range("J45").Value, 4)) Case "TAUX", "EFFI" :Range("N45:Q45").NumberFormat = "0.00%" Case "NOMB", "MONT" :Range("N40:Q40").NumberFormat = "General" End Select
Bonsoir, j'ai une feuille excel alimentée automatiquement par une autre feuille excel.. j'aimerais que les 4 cellules à droite des 2 cellule J40 et J45,respectent le format d'origine.
a savoir que si J40= Taux de "machin" alors format pourcentage sur les 4 cellules de droite sinon si J40= Nombre de "machin"alors format standard sur les 4 cellules de droite ..
je vous laisse ci joint le code
si J45ïficacité de "machin" alors format pourcentage sur les 4 cellules de droite sinon si J45= Montant de ""machin alors format standard sur les 4 cellules de droite Private Sub Worksheet_Activate()
If Left(Range("J45").Value, 4) = "Taux" Then Range("N45:Q45").NumberFormat = "0.00%" ElseIf Left(Range("J45").Value, 6) = "Nombre" Then Range("N45:Q45").NumberFormat = "General" ElseIf Left(Range("J40").Value, 10) = "Efficacité" Then Range("N40:Q40").NumberFormat = "0.00%" ElseIf Left(Range("J40").Value, 7) = "Montant" Then Range("N40:Q40").NumberFormat = "General"
End If
End Sub
apparemment cela n'est suivi d'aucun effet sur le format...
que manque t il
Merci
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour ALF*,
tu compare les quatre premieres lettres avec une chaine plus longue, ce
n'est pas bon. Tu ne pourra jamais avoir une égalité.
Select Case UCase(Left(Range("J45").Value, 4))
Case "TAUX", "EFFI" :Range("N45:Q45").NumberFormat = "0.00%"
Case "NOMB", "MONT" :Range("N40:Q40").NumberFormat = "General"
End Select
Bonsoir,
j'ai une feuille excel alimentée automatiquement par une autre feuille
excel.. j'aimerais que les 4 cellules à droite des 2 cellule J40 et
J45,respectent le format d'origine.
a savoir que si J40= Taux de "machin" alors format pourcentage sur les 4
cellules de droite sinon si J40= Nombre de "machin"alors format standard sur
les 4 cellules de droite ..
je vous laisse ci joint le code
si J45ïficacité de "machin" alors format pourcentage sur les 4 cellules de
droite sinon si J45= Montant de ""machin alors format standard sur les 4
cellules de droite
Private Sub Worksheet_Activate()
If Left(Range("J45").Value, 4) = "Taux" Then
Range("N45:Q45").NumberFormat = "0.00%"
ElseIf Left(Range("J45").Value, 6) = "Nombre" Then
Range("N45:Q45").NumberFormat = "General"
ElseIf Left(Range("J40").Value, 10) = "Efficacité" Then
Range("N40:Q40").NumberFormat = "0.00%"
ElseIf Left(Range("J40").Value, 7) = "Montant" Then
Range("N40:Q40").NumberFormat = "General"
End If
End Sub
apparemment cela n'est suivi d'aucun effet sur le format...
*Bonjour ALF*, tu compare les quatre premieres lettres avec une chaine plus longue, ce n'est pas bon. Tu ne pourra jamais avoir une égalité.
Select Case UCase(Left(Range("J45").Value, 4)) Case "TAUX", "EFFI" :Range("N45:Q45").NumberFormat = "0.00%" Case "NOMB", "MONT" :Range("N40:Q40").NumberFormat = "General" End Select
Bonsoir, j'ai une feuille excel alimentée automatiquement par une autre feuille excel.. j'aimerais que les 4 cellules à droite des 2 cellule J40 et J45,respectent le format d'origine.
a savoir que si J40= Taux de "machin" alors format pourcentage sur les 4 cellules de droite sinon si J40= Nombre de "machin"alors format standard sur les 4 cellules de droite ..
je vous laisse ci joint le code
si J45ïficacité de "machin" alors format pourcentage sur les 4 cellules de droite sinon si J45= Montant de ""machin alors format standard sur les 4 cellules de droite Private Sub Worksheet_Activate()
If Left(Range("J45").Value, 4) = "Taux" Then Range("N45:Q45").NumberFormat = "0.00%" ElseIf Left(Range("J45").Value, 6) = "Nombre" Then Range("N45:Q45").NumberFormat = "General" ElseIf Left(Range("J40").Value, 10) = "Efficacité" Then Range("N40:Q40").NumberFormat = "0.00%" ElseIf Left(Range("J40").Value, 7) = "Montant" Then Range("N40:Q40").NumberFormat = "General"
End If
End Sub
apparemment cela n'est suivi d'aucun effet sur le format...
que manque t il
Merci
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
ALF
bonjour, ok mais le probleme c'est que EFFI est sur J40 et NOMB SUR j45 et non pas sur la selection que tu indiques.. comment modifier cela sur ta procedure... merci -- ALF
*Bonjour ALF*, tu compare les quatre premieres lettres avec une chaine plus longue, ce n'est pas bon. Tu ne pourra jamais avoir une égalité.
Select Case UCase(Left(Range("J45").Value, 4)) Case "TAUX", "EFFI" :Range("N45:Q45").NumberFormat = "0.00%" Case "NOMB", "MONT" :Range("N40:Q40").NumberFormat = "General" End Select
Bonsoir, j'ai une feuille excel alimentée automatiquement par une autre feuille excel.. j'aimerais que les 4 cellules à droite des 2 cellule J40 et J45,respectent le format d'origine.
a savoir que si J40= Taux de "machin" alors format pourcentage sur les 4 cellules de droite sinon si J40= Nombre de "machin"alors format standard sur les 4 cellules de droite ..
je vous laisse ci joint le code
si J45ïficacité de "machin" alors format pourcentage sur les 4 cellules de droite sinon si J45= Montant de ""machin alors format standard sur les 4 cellules de droite Private Sub Worksheet_Activate()
If Left(Range("J45").Value, 4) = "Taux" Then Range("N45:Q45").NumberFormat = "0.00%" ElseIf Left(Range("J45").Value, 6) = "Nombre" Then Range("N45:Q45").NumberFormat = "General" ElseIf Left(Range("J40").Value, 10) = "Efficacité" Then Range("N40:Q40").NumberFormat = "0.00%" ElseIf Left(Range("J40").Value, 7) = "Montant" Then Range("N40:Q40").NumberFormat = "General"
End If
End Sub
apparemment cela n'est suivi d'aucun effet sur le format...
que manque t il
Merci
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
bonjour,
ok mais le probleme c'est que EFFI est sur J40 et NOMB SUR j45 et non pas
sur la selection que tu indiques..
comment modifier cela sur ta procedure...
merci
--
ALF
*Bonjour ALF*,
tu compare les quatre premieres lettres avec une chaine plus longue, ce
n'est pas bon. Tu ne pourra jamais avoir une égalité.
Select Case UCase(Left(Range("J45").Value, 4))
Case "TAUX", "EFFI" :Range("N45:Q45").NumberFormat = "0.00%"
Case "NOMB", "MONT" :Range("N40:Q40").NumberFormat = "General"
End Select
Bonsoir,
j'ai une feuille excel alimentée automatiquement par une autre feuille
excel.. j'aimerais que les 4 cellules à droite des 2 cellule J40 et
J45,respectent le format d'origine.
a savoir que si J40= Taux de "machin" alors format pourcentage sur les 4
cellules de droite sinon si J40= Nombre de "machin"alors format standard sur
les 4 cellules de droite ..
je vous laisse ci joint le code
si J45ïficacité de "machin" alors format pourcentage sur les 4 cellules de
droite sinon si J45= Montant de ""machin alors format standard sur les 4
cellules de droite
Private Sub Worksheet_Activate()
If Left(Range("J45").Value, 4) = "Taux" Then
Range("N45:Q45").NumberFormat = "0.00%"
ElseIf Left(Range("J45").Value, 6) = "Nombre" Then
Range("N45:Q45").NumberFormat = "General"
ElseIf Left(Range("J40").Value, 10) = "Efficacité" Then
Range("N40:Q40").NumberFormat = "0.00%"
ElseIf Left(Range("J40").Value, 7) = "Montant" Then
Range("N40:Q40").NumberFormat = "General"
End If
End Sub
apparemment cela n'est suivi d'aucun effet sur le format...
bonjour, ok mais le probleme c'est que EFFI est sur J40 et NOMB SUR j45 et non pas sur la selection que tu indiques.. comment modifier cela sur ta procedure... merci -- ALF
*Bonjour ALF*, tu compare les quatre premieres lettres avec une chaine plus longue, ce n'est pas bon. Tu ne pourra jamais avoir une égalité.
Select Case UCase(Left(Range("J45").Value, 4)) Case "TAUX", "EFFI" :Range("N45:Q45").NumberFormat = "0.00%" Case "NOMB", "MONT" :Range("N40:Q40").NumberFormat = "General" End Select
Bonsoir, j'ai une feuille excel alimentée automatiquement par une autre feuille excel.. j'aimerais que les 4 cellules à droite des 2 cellule J40 et J45,respectent le format d'origine.
a savoir que si J40= Taux de "machin" alors format pourcentage sur les 4 cellules de droite sinon si J40= Nombre de "machin"alors format standard sur les 4 cellules de droite ..
je vous laisse ci joint le code
si J45ïficacité de "machin" alors format pourcentage sur les 4 cellules de droite sinon si J45= Montant de ""machin alors format standard sur les 4 cellules de droite Private Sub Worksheet_Activate()
If Left(Range("J45").Value, 4) = "Taux" Then Range("N45:Q45").NumberFormat = "0.00%" ElseIf Left(Range("J45").Value, 6) = "Nombre" Then Range("N45:Q45").NumberFormat = "General" ElseIf Left(Range("J40").Value, 10) = "Efficacité" Then Range("N40:Q40").NumberFormat = "0.00%" ElseIf Left(Range("J40").Value, 7) = "Montant" Then Range("N40:Q40").NumberFormat = "General"
End If
End Sub
apparemment cela n'est suivi d'aucun effet sur le format...
que manque t il
Merci
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
JLuc
*Bonjour ALF*, Désolé, j'avais pas tout lu correctement :')
Select Case UCase(Left(Range("J45").Value, 4)) Case "TAUX" :Range("N45:Q45").NumberFormat = "0.00%" Case "NOMB" :Range("N45:Q45").NumberFormat = "General" End Select Select Case UCase(Left(Range("J40").Value, 4)) Case "EFFI" :Range("N40:Q40").NumberFormat = "0.00%" Case "MONT" :Range("N40:Q40").NumberFormat = "General" End Select
bonjour, ok mais le probleme c'est que EFFI est sur J40 et NOMB SUR j45 et non pas sur la selection que tu indiques.. comment modifier cela sur ta procedure... merci -- ALF
*Bonjour ALF*, tu compare les quatre premieres lettres avec une chaine plus longue, ce n'est pas bon. Tu ne pourra jamais avoir une égalité.
Select Case UCase(Left(Range("J45").Value, 4)) Case "TAUX", "EFFI" :Range("N45:Q45").NumberFormat = "0.00%" Case "NOMB", "MONT" :Range("N40:Q40").NumberFormat = "General" End Select
Bonsoir, j'ai une feuille excel alimentée automatiquement par une autre feuille excel.. j'aimerais que les 4 cellules à droite des 2 cellule J40 et J45,respectent le format d'origine.
a savoir que si J40= Taux de "machin" alors format pourcentage sur les 4 cellules de droite sinon si J40= Nombre de "machin"alors format standard sur les 4 cellules de droite ..
je vous laisse ci joint le code
si J45ïficacité de "machin" alors format pourcentage sur les 4 cellules de droite sinon si J45= Montant de ""machin alors format standard sur les 4 cellules de droite Private Sub Worksheet_Activate()
If Left(Range("J45").Value, 4) = "Taux" Then Range("N45:Q45").NumberFormat = "0.00%" ElseIf Left(Range("J45").Value, 6) = "Nombre" Then Range("N45:Q45").NumberFormat = "General" ElseIf Left(Range("J40").Value, 10) = "Efficacité" Then Range("N40:Q40").NumberFormat = "0.00%" ElseIf Left(Range("J40").Value, 7) = "Montant" Then Range("N40:Q40").NumberFormat = "General"
End If
End Sub
apparemment cela n'est suivi d'aucun effet sur le format...
que manque t il
Merci
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
-- ____ ( O | O ) -- _oooO_ JLuc _Oooo_
O-O
*Bonjour ALF*,
Désolé, j'avais pas tout lu correctement :')
Select Case UCase(Left(Range("J45").Value, 4))
Case "TAUX" :Range("N45:Q45").NumberFormat = "0.00%"
Case "NOMB" :Range("N45:Q45").NumberFormat = "General"
End Select
Select Case UCase(Left(Range("J40").Value, 4))
Case "EFFI" :Range("N40:Q40").NumberFormat = "0.00%"
Case "MONT" :Range("N40:Q40").NumberFormat = "General"
End Select
bonjour,
ok mais le probleme c'est que EFFI est sur J40 et NOMB SUR j45 et non pas
sur la selection que tu indiques..
comment modifier cela sur ta procedure...
merci
--
ALF
*Bonjour ALF*,
tu compare les quatre premieres lettres avec une chaine plus longue, ce
n'est pas bon. Tu ne pourra jamais avoir une égalité.
Select Case UCase(Left(Range("J45").Value, 4))
Case "TAUX", "EFFI" :Range("N45:Q45").NumberFormat = "0.00%"
Case "NOMB", "MONT" :Range("N40:Q40").NumberFormat = "General"
End Select
Bonsoir,
j'ai une feuille excel alimentée automatiquement par une autre feuille
excel.. j'aimerais que les 4 cellules à droite des 2 cellule J40 et
J45,respectent le format d'origine.
a savoir que si J40= Taux de "machin" alors format pourcentage sur les 4
cellules de droite sinon si J40= Nombre de "machin"alors format standard
sur les 4 cellules de droite ..
je vous laisse ci joint le code
si J45ïficacité de "machin" alors format pourcentage sur les 4 cellules
de droite sinon si J45= Montant de ""machin alors format standard sur les
4 cellules de droite
Private Sub Worksheet_Activate()
If Left(Range("J45").Value, 4) = "Taux" Then
Range("N45:Q45").NumberFormat = "0.00%"
ElseIf Left(Range("J45").Value, 6) = "Nombre" Then
Range("N45:Q45").NumberFormat = "General"
ElseIf Left(Range("J40").Value, 10) = "Efficacité" Then
Range("N40:Q40").NumberFormat = "0.00%"
ElseIf Left(Range("J40").Value, 7) = "Montant" Then
Range("N40:Q40").NumberFormat = "General"
End If
End Sub
apparemment cela n'est suivi d'aucun effet sur le format...
*Bonjour ALF*, Désolé, j'avais pas tout lu correctement :')
Select Case UCase(Left(Range("J45").Value, 4)) Case "TAUX" :Range("N45:Q45").NumberFormat = "0.00%" Case "NOMB" :Range("N45:Q45").NumberFormat = "General" End Select Select Case UCase(Left(Range("J40").Value, 4)) Case "EFFI" :Range("N40:Q40").NumberFormat = "0.00%" Case "MONT" :Range("N40:Q40").NumberFormat = "General" End Select
bonjour, ok mais le probleme c'est que EFFI est sur J40 et NOMB SUR j45 et non pas sur la selection que tu indiques.. comment modifier cela sur ta procedure... merci -- ALF
*Bonjour ALF*, tu compare les quatre premieres lettres avec une chaine plus longue, ce n'est pas bon. Tu ne pourra jamais avoir une égalité.
Select Case UCase(Left(Range("J45").Value, 4)) Case "TAUX", "EFFI" :Range("N45:Q45").NumberFormat = "0.00%" Case "NOMB", "MONT" :Range("N40:Q40").NumberFormat = "General" End Select
Bonsoir, j'ai une feuille excel alimentée automatiquement par une autre feuille excel.. j'aimerais que les 4 cellules à droite des 2 cellule J40 et J45,respectent le format d'origine.
a savoir que si J40= Taux de "machin" alors format pourcentage sur les 4 cellules de droite sinon si J40= Nombre de "machin"alors format standard sur les 4 cellules de droite ..
je vous laisse ci joint le code
si J45ïficacité de "machin" alors format pourcentage sur les 4 cellules de droite sinon si J45= Montant de ""machin alors format standard sur les 4 cellules de droite Private Sub Worksheet_Activate()
If Left(Range("J45").Value, 4) = "Taux" Then Range("N45:Q45").NumberFormat = "0.00%" ElseIf Left(Range("J45").Value, 6) = "Nombre" Then Range("N45:Q45").NumberFormat = "General" ElseIf Left(Range("J40").Value, 10) = "Efficacité" Then Range("N40:Q40").NumberFormat = "0.00%" ElseIf Left(Range("J40").Value, 7) = "Montant" Then Range("N40:Q40").NumberFormat = "General"
End If
End Sub
apparemment cela n'est suivi d'aucun effet sur le format...