Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Boostez vos compétences Excel avec notre communauté !
Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force.
Apprenez, échangez, progressez – et tout ça gratuitement !
👉 Inscrivez-vous maintenant !
Voici ce que j'ai mis au final dans mon programme :
Sub Macro1()
Dim Lig As Long, Derlig As Long
Application.ScreenUpdating = False
Derlig = Range("E300").End(xlUp).Row
' Boucle sur les lignes
For Lig = Derlig To 4 Step -1 ' mettre ta dernière colonne idem pour le tri
If (Range("E" & Lig).Value = "O") Then Rows(Lig).Delete
Next Lig
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Range("E4:E194"), Target) Is Nothing Then Exit Sub
If IsEmpty(Target) Then
With Target
.Value = "O"
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Else
Target.ClearContents
End If
Cancel = True
End Sub
Je suis donc arrivé à plus que ce que je voulais en effet sur le forum j'ai trouvé une macro me permettant d'insérer un "O" dans ma colonne E et avec l'autre macro de supprimer les lignes comportant un "O". Du sur mesure ! merci encore.
- Navigue sans publicité - Accède à Cléa, notre assistante IA experte Excel... et pas que... - Profite de fonctionnalités exclusives Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel. Je deviens Supporter XLD