Poignée de recopie

[Celeda]

Bonjour,

Je suis à la recherche d'une macro du type "tirer sur la poignée de recopie et le chiffre prendra le numéro suivant". Etant incapable d'écire le code, je me permets de vous poster ma demande.

Je m'explique :

j'ai des numéros de série qui commencent tous par une lettre :
F0674101235
F0674101236
F0674101237

naturellement je ne peux pas me servir de la poignée de recopie pour que les numéros se suivent.

Petite précision : je devrais pouvoir me servir de la macro selon le besoin car naturellement les séries se suivent mais ne se ressemblent point; par exemple :
je peux avoir :
F0674101235
F0674101236
F0674101237
F0674101350
F0674101351
F0674101352

J'espère avoir été claire.
Je vous remercie à l'avance pour votre aide.

 

[job75]

Re : Poignée de recopie

Bonsoir Staple

Ben voilà, je n'avais jamais tiré la poignée de recopie avec le bouton droit, tu te rends compte !

Merci à toi et Modeste, j'aurai appris quelque chose aujourd'hui

A+

 

[Staple1600]

Re : Poignée de recopie

Re

En plus tu peux implémenter cela en VBA

 Selection.AutoFill Destination:=Range("A1:A8"), Type:=xlFillValues

 

[jeanpierre]

Re : Poignée de recopie

Re bonsoir, ou bonne nuit,

Sous 2000 il y a aussi un menu contextuel du même genre.

Bonne nuit tous.

Jean-Pierre

 

[Staple1600]

Re : Poignée de recopie

Bonsoir jeanpierre


Ma copie d'écran vient d'Excel 2000

(comme l'indique mon profil)

 

[job75]

Re : Poignée de recopie

Re,

Bien sûr j'ai trouvé Type:=xlFillValues et édité mon post #10. Merci encore.

Bonne nuit à tous.

 

[job75]

Re : Poignée de recopie

Bonjour le fil, le forum,

J'ai pensé à une recopie par double sélection : touche Ctrl enfoncée.

Le début de la macro :

If Selection.Areas.Count <> 2 Then Exit Sub
Dim n As Double, origin As Range, cel As Range
Range(Selection.Areas(1), Selection.Areas(2)).Select

Les 2 fichiers, avec ou sans copie des formats.

A+

 

[job75]

Re : Poignée de recopie

Re,

On peut aussi donner le choix du type de recopie, mais bof...

A+

 

[job75]

Re : Poignée de recopie

Re,

Avec une liste de validation en F2 peut-être...

Edit : choix entre les 3 types de recopie en utilisant Switch

A+

 

[Modeste]

Re : Poignée de recopie

Bonjour tout le monde,

... Je reviens quelques pas en arrière (parce que quand tu es lancé job, tu roules tout seul Tu as dormi entre 00h17 et 9h48 ??)

Bref, sous 2003, la petite icône à laquelle je pensais est celle illustrée en pièce jointe (trouvée sur le net .. au moins je suis certain que quelqu'un d'autre l'a vue !)

 

[job75]

Re : Poignée de recopie

Salut Modeste,

(...) parce que quand tu es lancé job, tu roules tout seul Tu as dormi entre 00h17 et 9h48 ??

J'espère qu'il y a des passagers, et mon petit déj est copieux

Mais pas réussi à avoir l'icône de recopie.

A+

 

[JCGL]

Re : Poignée de recopie

Bonjour à tous,

Pour avoir cette "possibilitée", il faut cocher




A+

 

[job75]

Re : Poignée de recopie

Salut JCGL

Voilà maintenant je sais tout, merci.

A+

 

[Modeste]

Re : Poignée de recopie

Salut JC,

Merci pour ta lanterne et ton éclairage ... ça m'aurait "tarabusté" tout le week-end !

@+

 

[job75]

Re : Poignée de recopie

Re,

Continuant à rouler, j'ai de nouveau édité mon post #23.

A+

 

[jp14]

Re : Poignée de recopie

Bonjour le fil

A la lecture des post je me suis aperçu que mon code comportait des erreurs.
Ci dessous un nouveau code qui ressemble plus à la méthode autofill.

La procédure teste si la case n'est pas vide, et si la case suivante est vide.
Un message indique si le nombre de caractères après incrémentation est supérieur au nombre initial.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim val1 As Currency
Dim val1n As String
Dim i As Integer
Dim li As Byte

If Target = "" Then Exit Sub

If Target.Offset(1, 0).Value = "" Then
li = Len(Target)
For i = 1 To li
    If IsNumeric(Mid(Target, i, 1)) Then Exit For
Next i
li = li - (i - 1) ' nb de chiffres
val1 = CCur(Replace(Target, Left(Target, i - 1), "") + 1)
Select Case Len(CStr(val1))
    Case li
        val1n = CStr(Mid(Target, 1, i - 1) & val1)
    Case Is > li
        Select Case MsgBox("Le code  qui va être écrit n'a pas le même nombre de carractère" _
                   & vbCrLf & "Ancien code     :" & Target _
                   & vbCrLf & "Nouveau code :" & Mid(Target, 1, i - 1) & val1  _
                   & vbCrLf & "" _
                   , vbOKCancel Or vbInformation Or vbDefaultButton1, Application.Name)

        Case vbOK
            val1n = CStr(Mid(Target, 1, i - 1) & val1)
        Case vbCancel
            Exit Sub
        End Select
        
    Case Is < li
        val1n = CStr(Mid(Target, 1, i - 1) & String(li - Len(CStr(val1)), "0") & val1)
End Select

Target.Offset(1, 0).Value = val1n

' reproduire la mise en forme
    Target.Copy
    Target.Offset(1, 0).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
End If
End Sub

A tester

JP