Agrandir une cellule et une cellule avec la date du jour

[Fermé]
Signaler
-
 ordinateur! -
bonjour,

comment agrandir une cellule (nom long)
une cellule qui met la date jour

Merci de votre aide


Option Explicit
'-------------
Sub ccm()
Dim Mot As String, Nbre As Byte, cptr As Byte, Lig1 As Long, lig2 As Integer

Application.ScreenUpdating = False

With Sheets("feuil1")
On Error GoTo saisie
Mot = InputBox("Mot à rechercher ?")
Nbre = Application.CountIf(.Range("A1:A10"), Mot)
If Nbre = 0 Then GoTo vide
Lig1 = Cells.Rows.Count
lig2 = 1
For cptr = 1 To Nbre
Lig1 = .Columns("A").Find(Mot, .Cells(Lig1, "A"), xlValues).Row
Sheets("feuil2").Cells(lig2, "A") = .Cells(Lig1, "E")
Sheets("feuil2").Cells(lig2 + 2, "B") = .Cells(Lig1, "F")
Sheets("feuil2").Cells(lig2 + 1, "K") = .Cells(Lig1, "G")
lig2 = lig2 + 1
Next
End With
Exit Sub

'gestionnaire erreur
saisie:
MsgBox "aucune saisie effectuée", vbCritical

vide:
MsgBox Mot & " inconnu dans la liste!", vbCritical
End Sub

2 réponses

Messages postés
16033
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
20 octobre 2021
1 548
Bonjour,

Agrandir colonne, une cellule pas possible
ex:
Range("E2").Columns.AutoFit
merci pour ton aide