le code ne fonctionne pas..

Le
ALF
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
--
ALF
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JLuc
Le #4321881
*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
Le #4321831
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
Le #4257531
*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



Publicité
Poster une réponse
Anonyme