Après un double clic en D1 ajouter "+1" au texte de G1

[anthoYS]

bonjour,


voici le code actuel :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Target.Address = "$D$1:$F$1" Then Target.Value = Date: Cancel = True
If Not Application.Intersect(Target, Range("G:G")) Is Nothing And IsEmpty(Target) Then
Range("B4:B10").ClearContents
Range("B13:B20").ClearContents
Range("D1:F1").ClearContents
End If
Cancel = True
End Sub

comment le modifier de sorte à ce que chaque nouveau double clic en D1 ajoute en G1 : "VI90" +1.
(si je double clique, aujourd'hui se fige et ajoute "+1" soit "VI91") ?

merci
++

 

[Compte Supprimé 979]

Re : Après un double clic en D1 ajouter "+1" au texte de G1

Salut anthoYS

Voici le code avec quelques commentaires

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)  Dim Inc As Integer, sTxt As String, sIni As String
  ' Cette instruction n'est pas correcte, puisqu'il est impossible de faire un double clique sur une Zone
   'If Target.Address = "$D$1:$F$1" Then Target.Value = Date: Cancel = True
  ' Si el double clique c'est fait en D1
  If Target.Address(0, 0) = "D1" Then
    sTxt = Range("G1").Value
    ' Récupérer les 2 premières lettres du code
    sIni = Left(sTxt, 2)
    ' incrémenter de 1 la valeur du code
    Inc = Right(sTxt, Len(sTxt) - 2) + 1
    ' Inscrire la nouvelle valeur
    Range("G1").Value = sIni & Format(Inc, "00")
  End If
  If Not Application.Intersect(Target, Range("G:G")) Is Nothing And IsEmpty(Target) Then
    Range("B4:B10").ClearContents
    Range("B13:B20").ClearContents
    Range("D1:F1").ClearContents
  End If
  Cancel = True
End Sub

A+

 

[anthoYS]

Re : Après un double clic en D1 ajouter "+1" au texte de G1

merci cela dit chez moi la première ligne du code reste en rouge.
donc il ne marche pas ici.

(même avec mon ancien code, je ne comprends plus la)

++

 

[Compte Supprimé 979]

Re : Après un double clic en D1 ajouter "+1" au texte de G1

Re,

Il faut mettre la première ligne en commentaire, désolé de ne pas l'avoir fait

A+

 

[anthoYS]

Re : Après un double clic en D1 ajouter "+1" au texte de G1

Re,

Il faut mettre la première ligne en commentaire, désolé de ne pas l'avoir fait

A+

re,


je ne te comprends pas ;

maintenant j'ai séparé les deux premières lignes mais un double clic en D1 n'ajoute pas +1 en G1.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Dim Inc As Integer, sTxt As String, sIni As String
  ' Cette instruction n'est pas correcte, puisqu'il est impossible de faire un double clique sur une Zone
  If Target.Address = "$D$1:$F$1" Then Target.Value = Date: Cancel = True
  ' Si el double clique c'est fait en D1
  If Target.Address(0, 0) = "D1" Then
    sTxt = Range("G1").Value
    ' Récupérer les 2 premières lettres du code
    sIni = Left(sTxt, 2)
    ' incrémenter de 1 la valeur du code
    Inc = Right(sTxt, Len(sTxt) - 2) + 1
    ' Inscrire la nouvelle valeur
    Range("G1").Value = sIni & Format(Inc, "00")
  End If
  If Not Application.Intersect(Target, Range("G:G")) Is Nothing And IsEmpty(Target) Then
    Range("B4:B10").ClearContents
    Range("B13:B20").ClearContents
    Range("D1:F1").ClearContents
  End If
  Cancel = True
End Sub

qu'est-ce qui cloche ?


merci
++

 

[Compte Supprimé 979]

Re : Après un double clic en D1 ajouter "+1" au texte de G1

re,

Sans fichier ça va être délicat

À+

 

[phlaurent55]

Re : Après un double clic en D1 ajouter "+1" au texte de G1

Bonjour à tous

voir fichier joint qui répond à la question:

comment le modifier de sorte à ce que chaque nouveau double clic en D1 ajoute en G1 : "VI90" +1.

à+
Philippe

 

[Si...]

Re : Après un double clic en D1 ajouter "+1" au texte de G1

salut

Si... G1 commence par 2 lettres (qui peuvent changer), cela devrait suffire

Private Sub Worksheet_BeforeDoubleClick(ByVal C As Range, Cancel As Boolean)
  If C.Address = "$D$1" Then
    C = Date
    [G1] = Left([G1], 2) & Format(Right([G1], Len([G1]) - 2) + 1, "00")
  End If
  If C.Column = 7 And C = "" Then Range("B4:B10,B13:B20,D1:F1").ClearContents
  Cancel = True
End Sub Sub

 

[anthoYS]

Re : Après un double clic en D1 ajouter "+1" au texte de G1

ok le fichier ;


à+

 

[phlaurent55]

Re : Après un double clic en D1 ajouter "+1" au texte de G1

Re,

le fichier en retour

à+
Philippe

 

[Compte Supprimé 979]

Re : Après un double clic en D1 ajouter "+1" au texte de G1

Re tous,

L'éternel problème des cellules fusionnées

Par rapport à mon code, la ligne de test est celle-ci

If Target.Address(0, 0) = "D1:F1" Then

A+

 

[Si...]

Re : Après un double clic en D1 ajouter "+1" au texte de G1

re tous

et par rapport au mien :

If C.Address = "$D$1:$F$1" Then

Remarque : je ne suis pas pour multiplier le nombre de variables* surtout quand elles ne sont utilisées qu'une fois et dans ce dernier cas, sauf si leur nom permet d'éviter des textes longs.

* d'autant plus que je m’astreins à les déclarer !