Format de cellule personnalisé et macro

Re : Format de cellule personnalisé et macro

Bonjour,

Veux-tu essayer ce code en remplacement de ce qu'il existe dans le Feuil1(Nominatif) :

Re : Format de cellule personnalisé et macro

Bonjour Raja,

Non seulement je l'ai essayé, mais je l'ai adopté 🙂🙂

Merci.

Re : Format de cellule personnalisé et macro

Re-bonjour,

Sur une autre de mes feuilles, serait-il possible d'envoyer le même paramétrage pour une cellule désignée, ci-joint un extrait de la macro:

With Sheets("Nominatif")
derlig = .Range("A65500").End(xlUp).Row + 1
.Range("E2").Value = Cells(Lig, 5).Value
End With

De manière que E2 qui reçoit un nombre (ex 25) l'affiche en 2009-25 (Year(Date) & "-" )

Merci

Re : Format de cellule personnalisé et macro

Bonsoir à tous

pas tout suivi, mais peut être ainsi :


bonne soirée
@+

Re : Format de cellule personnalisé et macro

Merci Pierrot93,

C'est bien ça🙂

A+

Re : Format de cellule personnalisé et macro

Bonjour à tous, Pierrot93 et Raja,

Je reviens vers vous, car la macro proposée par Raja ne se comporte pas comme je le souhaiterais.

En effet elle ne prend pas en compte la valeur de la dernière ligne.

J'ai essayé de combiner les deux macros (celle d'origine et celle de Raja), mais je n'arrive à rien.

Macro d'origine = bouton 1
Macro Raja = bouton 2

Le but est de ne pas utiliser de format personnalisé dans la feuille.

Avec votre aide.
Merci.

Re : Format de cellule personnalisé et macro

Bonjour degap05

Salut Raja 🙂
Salut Pierrot 🙂

Veux-tu tester le commandbutton3

Re : Format de cellule personnalisé et macro

Bonjour pierrejean,

Je me suis empressé de tester, cela fonctionne très bien dans le fichier exemple.
Quant à incorporer ce code dans la macro de mon fichier de travail...........résultat non conforme.

Private Sub CommandButton1_Click()
Dim derlig, num1 As Long
Dim C As Range, Plage As Range
Application.ScreenUpdating = True
With ActiveSheet
Range("B15").Value = ComboBox1.Text
Range("B4").Value = ComboBox2.Text
Range("B7").Value = ComboBox3.Text
Range("B5").Value = ComboBox4.Text
Range("B6").Value = CDate(TextBox1.Text)
Range("B11").Value = TextBox5.Text
Range("B9").Value = TextBox6.Text
End With
'remplissage de l'ordonnancier pour mise en dotation
With Sheets("Ordonnancier")
derlig = .Range("A65500").End(xlUp).Row + 1
.Cells(derlig, 1).Value = Range("A2").Value
.Cells(derlig, 2).Value = Range("B4").Value
.Cells(derlig, 8).Value = Range("B5").Value
.Cells(derlig, 3).Value = Range("B7").Value
.Cells(derlig, 4).Value = Range("B10").Value
.Cells(derlig, 5).Value = Range("B15").Value
.Cells(derlig, 6).Value = Range("B6").Value
----------------------------------------------------------
Ta macro. Je l'ai positionnée à cet endroit et le numéro généré s'inscrit sur la feuille active au lieu de la feuille "Ordonnancier" (colonne "H")

---------------------------------------------------------
End With
Call NumérotationDot.Traitement
Unload Me
Application.ScreenUpdating = False
End Sub

A+

Re : Format de cellule personnalisé et macro

A tester

Re : Format de cellule personnalisé et macro

Bonjour pierrejean,

Cette fois c'est bon, la numérotation se fait bien.

Merci beaucoup à toi.

A+