Digitalisation formulaire - Problème de Macro - positionnement d'un texte
Bonjour à tous,
J'ai un problème sur 1 de mes macro, je veux que lorsque je clique sur le bouton non .
Le macro que j'ai mis en place, je veux qu'il se place au centre du diagonale contrôle règlementaire et non tout en haut. Est-ce possible de modifier le positionnement
Je vous joins ci-dessous le formulaire
Bonjour,
Votre description du problème est plus que concise… on ne connait pas votre projet, vous n'expliquez pas quel bouton, quel sub ni quel module…
En supposant qu'il s'agit de la macro "Sub NA()"
Je vous propose d'ajouter les deux lignes d'incrémentation pour repositionner votre forme. Je vous laisse le soin d'ajuster les valeurs selon votre besoin
Sub NA()
Dim shpNA As Shape
With Sheets("Table 1")
On Error Resume Next
.Shapes.Range("shpNA").Delete
Set shpNA = .Shapes("NA")
On Error GoTo 0
.Shapes.AddLabel(msoTextOrientationHorizontal, 400, 450, 72, 72).Select
With Selection.ShapeRange
.ScaleWidth 5, msoFalse, msoScaleFromTopLeft
.Name = "shpNA"
With .TextFrame2
.TextRange.Characters.Text = "N/A" & vbLf & "Date :" & Now()
.TextRange.Font.Bold = msoTrue
.TextRange.Font.Size = 16
.TextRange.ParagraphFormat.Alignment = msoAlignCenter
.AutoSize = msoAutoSizeShapeToFitText
With .TextRange.Font.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
End With
End With
' ici
.IncrementLeft -278
.IncrementTop 1332
End With
End With
End SubBonjour,
Le bouton non coche à caser (contrôle réglementaire de la photo que j'ai mis sur la demande). Vous pouvez-vous que lorsque vous clique. Il y un diagonale et un texte qui apparait en haut, moi je veux qu'il se place au centre du diagonale
Bonjour à tous,
Je voudrais rajouter sur le bouton ''barrer la cellule fonctionné '', le même programme que sur les cases à cocher sauf que cette fois en sélectionnant une plage de donnée . Lorsque je sélectionne la plage de donnée, je souhaites qu'il m'affiche NA avec la date et l'heure comme sur le bouton non de la visite règlementaire ou métrologie et au plaçant automatique au centre de la plage de donnée.
Je veux qu'il fasse la même chose que la photo ci-dessous, mais cette fois je veux qu'il me mette automatique au centre le texte comme la photo ci-dessous.
Sub BarrerCellules()
'
' BarrerCellules Macro
' Place un trait épais en diagonal des cellules sélectionnées
'
'
With Selection
x1 = .Cells(1).Left
y1 = .Cells(1).Top
x2 = .Cells(.Cells.Count).Left + .Cells(.Cells.Count).Width
y2 = .Cells(.Cells.Count).Top + .Cells(.Cells.Count).Height
Set MyLine = ActiveSheet.Shapes.AddConnector(msoConnectorStraight, x1, y1, x2, y2)
With MyLine.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
.Visible = msoTrue
.Weight = 4.5
End With
End With
End Sub
Je veux rajouter sur ce prgramme call N/A :
Call NA
Else
For Each shp In .Shapes
If StrComp(shp.Name, "Topo_Secu", 1) = 0 Or StrComp(shp.Name, "shpNA", 1) = 0 Then shp.Delete
Next
End If
End With
End Sub
Avec ces 2 programmes
Sub NA()
Dim shpNA As Shape
With Sheets("Table 1")
On Error Resume Next
.Shapes.Range("shpNA").Delete
Set shpNA = .Shapes("NA")
On Error GoTo 0
.Shapes.AddLabel(msoTextOrientationHorizontal, 400, 450, 72, 72).Select
With Selection.ShapeRange
.ScaleWidth 5, msoFalse, msoScaleFromTopLeft
.Name = "shpNA"
With .TextFrame2
.TextRange.Characters.Text = "N/A" & vbLf & "Date :" & Now()
.TextRange.Font.Bold = msoTrue
.TextRange.Font.Size = 16
.TextRange.ParagraphFormat.Alignment = msoAlignCenter
.AutoSize = msoAutoSizeShapeToFitText
With .TextRange.Font.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
End With
End With
.IncrementLeft -278 (je veux automatiser)
.IncrementTop 1332 ( Je veux aotomatiser)
End With
End With
End Sub
Je vous remercie d'avance pour votre aide.
x4.xlsm (98.50 Ko)
Bonjour,
Il faut utiliser les outils du forum : Parmi les icônes disponibles il y a celles ci qui sert à envoyer du code VBA
Quand tu postes du vba merci de l'utiliser AVANT de coller ton code.
A+
Merci pour la réponse galopin01. Je ne savais, je suis nouveaux.
Par hasard, t'aurais pas la réponse pour mon problème
Votre truc est incompréhensible : C'est un foutoir !
La programmation est une pièce de précision :
Faites le ménage (à plus forte raison dans le code que vous postez sur le forum !)
Le "Else" est tombé du ciel ?
Le :
Set shpNA = .Shapes("NA") 'ne passe pas malgré le on Error Resume Next
A+
Galopin sur mon fichier excel, il y a déja les macro. Je veux juste savoir le programme à mettre dans le bouton violet '' barrer les cellules '' pour qu'il fasse la même chose que les cas à cocher mais cette fois uniquement lorsque je sélectionne une plage de donnée.
Je vous remercie pour votre aide. Je pense que c'est plus claire comme sa
Bonjour,
Je vous envoie un fichier que j'avais réaliser sur le bouton '' barrer les cellules sélectionnés'' (Exemple) . Je vais le même programme en plus en ajouter le programme qui est sur l'excel sur les cases à cocher modification par exemple avec le N/A, date et heure. Je pense c'est plus claire Maintennant (à faire sur le fichier X4)
x4.xlsm (98.83 Ko)
exempke.xlsm (93.25 Ko)
Le sujet initial est résolu. Créez plutot un autre fil et marquez celui-ci comme résolu.
Non Non pitié pas d'autre fil reste sur ton sujet tant que tu as pas tour résolu !
Je t'ai fait un barré sur la selection et j'ai positionné ton texte au milieu du trait.
La shpNA est masquée (Left = 2000 quand tu active la feuille et s'affiche si tu fais un barré.
A+
Bonjour Galopin01. C'est tous qui me fallait sur le bouton barrer bouton sélectionné.
Sauf que s'a m'a désactivé les macro sur la case à cocher désactivation, modification et surtout dans la case non métrologie (je pense que vous avez utilisé le macro de la métologie). Sa m'affiche des messages d'erreurs. je comprends pas d'où viennent le problème lorsque je double clique.
Clore le sujet SVP en cliquant sur l’icône résolu de votre fil.
