XL 2013 impression trop petit des cases a cocher

[grisan29]

bonjour a tous et bonnes fêtes de fin d'année

dans le post où j'ai poser une question intruse et sans suite et qui n'a pas de rapport direct avec mon desir

quand j'imprime mon attestation les cases cochées sont très peu visible, pas comme les exemples que vous avez donner
je vais vous joindre le classeur pour que vous voyez par vous même je ne demande pas une coche très grande mais plus visible a l'impression car a l'écran c'est bien

Pascal

 

[Modeste]

Re : impression trop petit des cases a cocher

Bonjour grisan29,

Une des raisons (parmi d'autres) qui font proposer ces fameuses "fausses cases à cocher", c'est précisément que les "vraies" ne peuvent être redimensionnées

 

[grisan29]

Re : impression trop petit des cases a cocher

bonjour Modeste

qu'appelle tu des fausses et vraies soit des issus de formulaire ou activex est ce bien cela dont tu parles, je suis ouvert a toute proposition

Pascal

 

[grisan29]

Re : impression trop petit des cases a cocher

bonjour Modeste

d'accord j'enlève les cases a cochées et a leur place je mets un T où un ? pour cocher ou pas et cela rejoint le post ou j'ai fait une intrusion n'est ce pas
mais je peux pas utiliser le code que st_007 a mis dans son classeur car mes cases sont éparpillées sur la feuille

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xrg As Range, ligne As Long

  If Target.Count = 1 Then
    Set xrg = Intersect(Range("O7:O" & Cells(Rows.Count, "N").End(xlUp).Row), Target)
    If Not xrg Is Nothing Then
      Target.Font.Name = "Wingdings": Target.Font.Size = 36: Target.Font.Bold = False
      If IsEmpty(Target) Then Target = Chr(168)
      If Asc(Target) = 168 Then
        Target = Chr(254)
        Target.Font.Bold = True
      Else
        Target = Chr(168)
        Target.Font.Bold = False
      End If
      ligne = xrg.Row
      If Asc(Target) = 168 Then
        Cells(ligne, "p") = Empty
      ElseIf Cells(ligne, "c") = 240 Then
        Cells(ligne, "p") = 0
      Else
        Cells(ligne, "p") = Cells(ligne, "d") * Cells(ligne, "n")
      End If
      Cells(ligne, "p").Activate
    End If
  End If
End Sub

Pascal

 

[grisan29]

Re : impression trop petit des cases a cocher

Bonjour Modeste et le forum

j'ai viré toutes les cases a cocher et mis des T partout mais le but n'est pas de cocher toutes les cases, juste les concernées qu'il faut , les autres doivent rester décochées et c'est cela que je ne peux faire et c'est la raison des cases
je rejoint le classeur avec ses T où l'on peut modifier sa taille

Pascal

 

[Si...]

Re : impression trop petit des cases a cocher

salut

voir le fichier joint our un exemple : une macro pour cocher/décocher (les tailles et la police étant fixées)

Private Sub Worksheet_SelectionChange(ByVal R As Range)
  If R.CountLarge > 1 Then Exit Sub
  Select Case R
    Case "T": R = "£": R(1, 2).Select
    Case "£": R = "T": R(1, 2).Select
  End Select
End Sub

 

[grisan29]

Re : impression trop petit des cases a cocher

bonjour si..., modeste et le forum

merci si... pour ton code j'ai mis d'abord la taille de la cellule plus grand avant de mettre le code et cela fonctionne très bien, ce m'évitera de retracer a chaque fois sur les feuilles

Merci a ce forum et que les fêtes de fin d'année se passe bien pour tous

Pascal