Imbriquer deux code Worksheet dans VBA

Résolu/Fermé

nathan027 Messages postés 101 Date d'inscription mercredi 23 septembre 2009 Statut Membre Dernière intervention 28 juin 2021 - 2 janv. 2020 à 08:27
nathan027 Messages postés 101 Date d'inscription mercredi 23 septembre 2009 Statut Membre Dernière intervention 28 juin 2021 - 2 janv. 2020 à 08:51

Bonjour j'ai deux formules Worksheet et visiblement on ne peut pas en écrire deux différentes dans une seule feuille.
J'ai vu qu'il fallait donc les imbriquer mais je vous avoue que je suis perdu .. un peu coup de main serait le bienvenu.

Merci

je vous écris mais deux codes séparemment

le premier

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fin
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("D10:D" & Rows.Count)) Is Nothing Then
If Target <> "" Then
Target.Offset(, -2).Resize(, 2) = "X"
Else
Target.Offset(, -2).Resize(, 2).ClearContents
End If
End If
fin:
Application.EnableEvents = True
End Sub

Le second

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 7 Then

Select Case Target.Value
Case "F"
Cells(Target.Row, 8) = "1"

Case Else
Cells(Target.Row, 8) = ""

End Select
End If
End Sub

A voir également:

Imbriquer deux code Worksheet dans VBA
Deux comptes whatsapp - Guide
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Deux ecran pc - Guide

1 réponse

Réponse 1 / 1

M-12 Messages postés 1333 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 299
2 janv. 2020 à 08:48

Bonjour,

Remplace par ceci

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo fin
  Application.EnableEvents = False
    If Not Application.Intersect(Target, Range("D10:D" & Rows.Count)) Is Nothing Then
      If Target <> "" Then
        Target.Offset(, -2).Resize(, 2) = "X"
      Else
        Target.Offset(, -2).Resize(, 2).ClearContents
      End If
    End If
fin:
  Application.EnableEvents = True
  
  If Target.Count = 1 And Target.Column = 7 Then
    Select Case Target.Value
      Case "F"
        Cells(Target.Row, 8) = "1"
      Case Else
        Cells(Target.Row, 8) = ""
      End Select
  End If
End Sub

nathan027 Messages postés 101 Date d'inscription mercredi 23 septembre 2009 Statut Membre Dernière intervention 28 juin 2021 1
2 janv. 2020 à 08:51

Tu déchires M-12

MERCI BCP !!!!!!

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

Acces à snapchat temporairement désactivé

Discussions similaires

Newsletters