Incrémentation
Bonjour,
je suis entrain de réaliser un classeur avbec Excel 2010 et je voudrai avoir l'incrémentation des cellules de la colonne A ou B, suivant le nb d'opérations réalisées.
J'ai fait une macro pour renseigner mes cellules de A ou de B suivant les besoins par doubleclic.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("A2:A50,B2:B50")) Is Nothing Then 'plage concernée A2:A50;B2:B50
With Target
If .Column = 1 Then ' si la colonne est la A
.Value = "D1" 'on écrit un D1
.Offset(0, 1) = "" 'la cellule à droite est vide
End If
If .Column = 2 Then ' si la colonne est la B
.Value = "R1" 'on écrit un R1
.Offset(0, -1) = "" 'la cellule à gauche est vide
End If
End With
End If
End Sub
Je voudrais arriver à incrémenter D1 ou R1 peu importe où je le renseigne.
Je pourrai avoir A2;A3;A4;A5 avec D1;D2D3;D4 puis B6 et B7 avec R1; R2 et A8 avec D5.
J'espère que je suis assez clair...
Merci pour votre aide
* Les annotations dans la macro, c'est pour savoir ce que je fais, je débute
Salut,
Si je t'ai bien compris, voici un esssai pour la colonne A uniquement.
Cordialement.
Bonjour Yvouille
et merci. C'est super, c'est exactement ce que je voulais.
Tu peux m'expliquer un peu le code STP ?
Juste un petit commentaire en bout de ligne que je sache ce que j'utilise.
Comme je l'ai déjà dit, je débute et je n'ai pas tout compris.
En attendant, encore merci.
Natutarn
RE,
Ce n'est pas facile d'expliquer facilement certains codes. Tu devais lire des cours tels que ceux présentés sur ce Forum (voir "Cours VBA" sur cette page).
J'ai quand même essayé de placer quelques explications directement dans le code.
Amicalement.
Merci beaucoup.
Tu as raison, je vais aller voir les cours VBA sur le site, mais avec tes explications, j'ai compris le principe.
Encore merci.
Cordialement
natutarn