afficher des données par défaut aprés l'execution d'un code

chaelie2015 · 8 Avril 2020

Bonsoir Forum
ci desous un code qu'efface une zone nommée "Zone_Taux_I11" composée deux deux colonnes, je souhaite lors d'excution de ce code et apres avoir effacer les données de cette zone , faire afficher dans toutes les cellules de la permiere colonne des valeurs 0 et dans la deuxiemme colonne faire afficher dans toutes les cellules le texte "En cours"

VB:

Sub Vider_zone_taux_I11()
  Rep = MsgBox("Vous allez supprimer toutes les données :" &  Chr(10) & "Poursuivre ?", vbYesNo, "ATTENTION")
  If Rep = vbYes Then [Zone_Taux_I11] = Empty
  Exit Sub
End Sub

NB: Zone_Taux_I11=Feuil1!$C$11:$F$16
Salutations

sylvanu · 8 Avril 2020

Bonjour Chaelie,
Dans votre code le Exit Sub ne sert à rien.
Vous pouvez tester cette macro :

VB:

Sub Vider_zone_taux_I11()
  Rep = MsgBox("Vous allez supprimer toutes les données ?" & Chr(10) & Chr(10) & "Poursuivre ?", vbYesNo, "ATTENTION")
  If Rep = vbYes Then
    [Zone_Taux_I11] = 0
    [ZoneEnCours] = "En cours"
  End If
End Sub

J'ai appelé ZoneEnCours la seconde colonne "F11:F16"

Staple1600 · 8 Avril 2020

Bonjour le fil, chaelie2015, sylvanu

Une autre façon de faire

VB:

Sub Vider_zone_taux_I11_ter()
If MsgBox("Vous allez supprimer toutes les données :" _
    & Chr(10) & "Poursuivre ?", vbYesNo, "ATTENTION") = 6 Then
[Zone_Taux_I11] = Array(0, "En cours", "", "", "")
End If
End Sub

job75 · 8 Avril 2020

Bonjour chaelie2015, sylvanu, JM, le forum,

Bonne idée JM mais il vaut mieux :

VB:

Sub Vider_zone_taux_I11()
If MsgBox("Vous allez supprimer toutes les données..." & vbLf & vbLf & "Poursuivre ?", vbYesNo, "ATTENTION") = vbYes Then [Zone_Taux_I11] = Array(0, , "En cours")
End Sub

A+

Staple1600 · 8 Avril 2020

Bonjour job75

Je n'ai pas ouvert le fichier exemple
Je me juste basé sur:

NB: Zone_Taux_I11=Feuil1!$C$11:$F$16
une zone nommée "Zone_Taux_I11" composée deux deux* colonnes

(*: moi j'en compte 4 )

Et j'ai déduis qu'il s'agissait des deux premières colonnes.

PS: Ton code mets des N/A dans la dernière colonne

job75 à dit:
Bonjour chaelie2015, sylvanu, JM, le forum,

Bonne idée JM mais il vaut mieux :

VB:

Sub Vider_zone_taux_I11() If MsgBox("Vous allez supprimer toutes les données..." & vbLf & vbLf & "Poursuivre ?", vbYesNo, "ATTENTION") = vbYes Then [Zone_Taux_I11] = Array(0, , "En cours") End Sub

A+

(Testé avec Zone_Taux_I11=Feuil1!$C$11:$F$16)
Avec une virgule de plus, OK

EDITION: j'avais lu trop vite la proposition de sylvanu.
Sinon, j'aurai capté qu'il s'agissait de la 1er et de la dernière colonne.

Staple1600 · 8 Avril 2020

Re

Et une à l'ancienne, plus basique

VB:

Sub Vider_zone_taux_I11_quatro()
If MsgBox("Vous allez supprimer toutes les données..." & vbLf & vbLf & "Poursuivre ?", vbYesNo, "ATTENTION") = vbYes Then
With [Zone_Taux_I11]
    .ClearContents
    .Columns(1) = 0: .Columns(4) = "En cours"
End With
End If
End Sub

job75 · 8 Avril 2020

Staple1600 à dit:
PS: Ton code mets des N/A dans la dernière colonne

Bah les cellules de la 4ème colonne sont fusionnées avec la 3ème… Chez moi pas de problème.

Si la feuille peut être filtrée il faut penser à tout afficher, le code de la feuille :

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [Zone_Taux_I11].Rows(0)) Is Nothing Then Exit Sub
Cancel = True
If MsgBox("Vous allez supprimer toutes les données..." & vbLf & vbLf & "Poursuivre ?", vbYesNo, "ATTENTION") = vbNo Then Exit Sub
If FilterMode Then ShowAllData 'si la feuille est filtrée
[Zone_Taux_I11] = Array(0, , "En cours")
End Sub

Staple1600 · 8 Avril 2020

Re

job75
Désolé, comme je l'ai dit , je n'ai pas ouvert de PJ
Me suis juste basé sur ce qu'on lisait dans le premier message.
(On ne parlait pas de cellules fusionnées)

chaelie2015 · 8 Avril 2020

Bonjour Sylvanu, JM , JOB
Super , merci pour vos réponses.
c'est nickel.
A+

afficher des données par défaut aprés l'execution d'un code

chaelie2015

XLDnaute Accro

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

Staple1600

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Discussions similaires