Double saisie
Bonjour
Serait-il possible de mettre en bas de chaque cellule le même chiffre en petit, le chiffre en grand police 24 et le petit police 6.
En sachant que les vides et les chiffres vont changer de place par la suite par tirage aléatoire.Les chiffres vont jusqu'au 90.
J'ai mis un fichier pour tester.
Merci beaucoup
Bonjour,
Que veux tu dire par 'En bas' ?
Tu peux montrer le résultat que tu souhaiterais ?
jpbt84 a écrit :Bonjour,
Que veux tu dire par 'En bas' ?
Tu peux montrer le résultat que tu souhaiterais ?
Voici un exemple a droite, , mais serait-il possible que ce soit automatique et en VBA.
Meci
galopin01 a écrit :Bonjour,
voir en pièce jointe
A+
Bonjour
Serait-il possible d'avoir les petits chiffres au milieu
Merci
mic6259 a écrit :galopin01 a écrit :Bonjour,
voir en pièce jointe
A+
Bonjour
Serait-il possible d'avoir les petits chiffres au milieu et le grand au centre.
Merci
mic6259 a écrit :galopin01 a écrit :Bonjour,
voir en pièce jointe
A+
Bonjour
Serait-il possible d'avoir les petits chiffres au milieu
Merci
mic6259 a écrit :galopin01 a écrit :Bonjour,
voir en pièce jointe
A+
Bonjour
Serait-il possible d'avoir le grand chiffre au centre de la cellule et le petit en bas et milieu.
Merci
Re,
C'est encore plus simple : remplacer par cette macro :
Sub test()
Dim i, ii, o As Range
For Each o In Selection
If o.Value <> "" Then
i = o.Value
o.Formula = i & Chr(10) & i
o.Characters(Start:=1, Length:=2).Font.Size = 24
o.Characters(Start:=3).Font.Size = 8
End If
Next
End SubA+
Merci beaucoup c'est ce qu'il me faut.
mic6259 a écrit :Merci beaucoup c'est ce qu'il me faut.
Bonjour
Serait-il possible d' faire l'inverse dans le fichier essai, c'est-à dire n’avoir que le grand chiffre et supprimer le petit.
Merci
Bonjour,
Une possibilité :
Sub galopin()
Dim o, i%
For Each o In Selection
If o.Value <> "" Then
i = InStr(o.Value, Chr(10))
o.Value = Val(Left(o.Value, i - 1))
End If
Next
End SubA+
Merci beaucoup c'est parfait