Je souhaite pouvoir modifier le format du texte de mes cellules, en
fonction d'un certain nombre de param=EAtre pour que dans certaines
conditions elle n'apparaissent pas =E0 l'impression (format
personnalis=E9 de type ;;;)
Le probl=E8me est qu'il n'est pas possible de modifier ce format par les
formats conditionnels, donc je voulais passer par une macro.
J'ai essayer avec une fonction genre :
Function format_imp(x, y)
Sheets("Impression").Cells(x, y).NumberFormat =3D ";;;"
end function
avec dans la cellule A1 : =3Dformat_imp(ligne(), colonne())
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
JB
Bonjour,
On veut masquer des cellules à l'impression: -On colorie en jaune (36)les cellules qui doivent être masquées:
http://cjoint.com/?kFo7SlowQU
Sub ImprimeMasqué2() Dim temp(1000), temp2(1000) ligne = 1 For Each c In ActiveSheet.UsedRange If c.Interior.ColorIndex = 36 Then temp(ligne) = c.NumberFormat temp2(ligne) = c.Address ligne = ligne + 1 c.NumberFormat = ";;;" End If Next c ActiveSheet.PrintPreview For i = 1 To ligne - 1 Range(temp2(i)).NumberFormat = temp(i) Next i End Sub
Cordialement JB
Bonjour,
Je souhaite pouvoir modifier le format du texte de mes cellules, en fonction d'un certain nombre de paramêtre pour que dans certaines conditions elle n'apparaissent pas à l'impression (format personnalisé de type ;;;)
Le problème est qu'il n'est pas possible de modifier ce format par les formats conditionnels, donc je voulais passer par une macro.
J'ai essayer avec une fonction genre :
Function format_imp(x, y) Sheets("Impression").Cells(x, y).NumberFormat = ";;;" end function
avec dans la cellule A1 : =format_imp(ligne(), colonne())
mais ca ne marche pas.
Quelqu'un aurait-il une solution.
Merci pour votre aide
Bonjour,
On veut masquer des cellules à l'impression:
-On colorie en jaune (36)les cellules qui doivent être masquées:
http://cjoint.com/?kFo7SlowQU
Sub ImprimeMasqué2()
Dim temp(1000), temp2(1000)
ligne = 1
For Each c In ActiveSheet.UsedRange
If c.Interior.ColorIndex = 36 Then
temp(ligne) = c.NumberFormat
temp2(ligne) = c.Address
ligne = ligne + 1
c.NumberFormat = ";;;"
End If
Next c
ActiveSheet.PrintPreview
For i = 1 To ligne - 1
Range(temp2(i)).NumberFormat = temp(i)
Next i
End Sub
Cordialement JB
Bonjour,
Je souhaite pouvoir modifier le format du texte de mes cellules, en
fonction d'un certain nombre de paramêtre pour que dans certaines
conditions elle n'apparaissent pas à l'impression (format
personnalisé de type ;;;)
Le problème est qu'il n'est pas possible de modifier ce format par les
formats conditionnels, donc je voulais passer par une macro.
J'ai essayer avec une fonction genre :
Function format_imp(x, y)
Sheets("Impression").Cells(x, y).NumberFormat = ";;;"
end function
avec dans la cellule A1 : =format_imp(ligne(), colonne())
On veut masquer des cellules à l'impression: -On colorie en jaune (36)les cellules qui doivent être masquées:
http://cjoint.com/?kFo7SlowQU
Sub ImprimeMasqué2() Dim temp(1000), temp2(1000) ligne = 1 For Each c In ActiveSheet.UsedRange If c.Interior.ColorIndex = 36 Then temp(ligne) = c.NumberFormat temp2(ligne) = c.Address ligne = ligne + 1 c.NumberFormat = ";;;" End If Next c ActiveSheet.PrintPreview For i = 1 To ligne - 1 Range(temp2(i)).NumberFormat = temp(i) Next i End Sub
Cordialement JB
Bonjour,
Je souhaite pouvoir modifier le format du texte de mes cellules, en fonction d'un certain nombre de paramêtre pour que dans certaines conditions elle n'apparaissent pas à l'impression (format personnalisé de type ;;;)
Le problème est qu'il n'est pas possible de modifier ce format par les formats conditionnels, donc je voulais passer par une macro.
J'ai essayer avec une fonction genre :
Function format_imp(x, y) Sheets("Impression").Cells(x, y).NumberFormat = ";;;" end function
avec dans la cellule A1 : =format_imp(ligne(), colonne())
mais ca ne marche pas.
Quelqu'un aurait-il une solution.
Merci pour votre aide
Norvi
C'était une question débile,je voulais absolument faire une fonction, alors qu'avant chaque impression un traitement unique suffit.....
Merci pour ton aide ;)
JB wrote:
Bonjour,
On veut masquer des cellules à l'impression: -On colorie en jaune (36)les cellules qui doivent être masquées:
http://cjoint.com/?kFo7SlowQU
Sub ImprimeMasqué2() Dim temp(1000), temp2(1000) ligne = 1 For Each c In ActiveSheet.UsedRange If c.Interior.ColorIndex = 36 Then temp(ligne) = c.NumberFormat temp2(ligne) = c.Address ligne = ligne + 1 c.NumberFormat = ";;;" End If Next c ActiveSheet.PrintPreview For i = 1 To ligne - 1 Range(temp2(i)).NumberFormat = temp(i) Next i End Sub
Cordialement JB
Bonjour,
Je souhaite pouvoir modifier le format du texte de mes cellules, en fonction d'un certain nombre de paramêtre pour que dans certaines conditions elle n'apparaissent pas à l'impression (format personnalisé de type ;;;)
Le problème est qu'il n'est pas possible de modifier ce format par les formats conditionnels, donc je voulais passer par une macro.
J'ai essayer avec une fonction genre :
Function format_imp(x, y) Sheets("Impression").Cells(x, y).NumberFormat = ";;;" end function
avec dans la cellule A1 : =format_imp(ligne(), colonne())
mais ca ne marche pas.
Quelqu'un aurait-il une solution.
Merci pour votre aide
C'était une question débile,je voulais absolument faire une fonction,
alors qu'avant chaque impression un traitement unique suffit.....
Merci pour ton aide ;)
JB wrote:
Bonjour,
On veut masquer des cellules à l'impression:
-On colorie en jaune (36)les cellules qui doivent être masquées:
http://cjoint.com/?kFo7SlowQU
Sub ImprimeMasqué2()
Dim temp(1000), temp2(1000)
ligne = 1
For Each c In ActiveSheet.UsedRange
If c.Interior.ColorIndex = 36 Then
temp(ligne) = c.NumberFormat
temp2(ligne) = c.Address
ligne = ligne + 1
c.NumberFormat = ";;;"
End If
Next c
ActiveSheet.PrintPreview
For i = 1 To ligne - 1
Range(temp2(i)).NumberFormat = temp(i)
Next i
End Sub
Cordialement JB
Bonjour,
Je souhaite pouvoir modifier le format du texte de mes cellules, en
fonction d'un certain nombre de paramêtre pour que dans certaines
conditions elle n'apparaissent pas à l'impression (format
personnalisé de type ;;;)
Le problème est qu'il n'est pas possible de modifier ce format par les
formats conditionnels, donc je voulais passer par une macro.
J'ai essayer avec une fonction genre :
Function format_imp(x, y)
Sheets("Impression").Cells(x, y).NumberFormat = ";;;"
end function
avec dans la cellule A1 : =format_imp(ligne(), colonne())
C'était une question débile,je voulais absolument faire une fonction, alors qu'avant chaque impression un traitement unique suffit.....
Merci pour ton aide ;)
JB wrote:
Bonjour,
On veut masquer des cellules à l'impression: -On colorie en jaune (36)les cellules qui doivent être masquées:
http://cjoint.com/?kFo7SlowQU
Sub ImprimeMasqué2() Dim temp(1000), temp2(1000) ligne = 1 For Each c In ActiveSheet.UsedRange If c.Interior.ColorIndex = 36 Then temp(ligne) = c.NumberFormat temp2(ligne) = c.Address ligne = ligne + 1 c.NumberFormat = ";;;" End If Next c ActiveSheet.PrintPreview For i = 1 To ligne - 1 Range(temp2(i)).NumberFormat = temp(i) Next i End Sub
Cordialement JB
Bonjour,
Je souhaite pouvoir modifier le format du texte de mes cellules, en fonction d'un certain nombre de paramêtre pour que dans certaines conditions elle n'apparaissent pas à l'impression (format personnalisé de type ;;;)
Le problème est qu'il n'est pas possible de modifier ce format par les formats conditionnels, donc je voulais passer par une macro.
J'ai essayer avec une fonction genre :
Function format_imp(x, y) Sheets("Impression").Cells(x, y).NumberFormat = ";;;" end function
avec dans la cellule A1 : =format_imp(ligne(), colonne())
