Poignée de recopie

job75

XLDnaute Barbatruc

• 4 Décembre 2009

• #16

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+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Décembre 2009

• #17

Re : Poignée de recopie

Re

En plus tu peux implémenter cela en VBA 😉

Code:

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

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 5 Décembre 2009

• #18

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 5 Décembre 2009

• #19

Re : Poignée de recopie

Bonsoir jeanpierre


Ma copie d'écran vient d'Excel 2000😉

(comme l'indique mon profil)

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Décembre 2009

• #20

Re : Poignée de recopie

Re,

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

Bonne nuit à tous.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Décembre 2009

• #21

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 :

Code:

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+

 

Pièces jointes

• Recopie Double Selection (1).xls

  40.5 KB · Affichages: 76
• Recopie Double Selection (2).xls

  41 KB · Affichages: 65

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Décembre 2009

• #22

Re : Poignée de recopie

Re,

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

A+

 

Pièces jointes

• Recopie Double Selection (3).xls

  42 KB · Affichages: 63

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Décembre 2009

• #23

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+

 

Pièces jointes

• Recopie Double Selection (4).xls

  43 KB · Affichages: 63

Dernière édition: 5 Décembre 2009

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 5 Décembre 2009

• #24

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 !)

 

Pièces jointes

• PoigneeRecopie2003.jpg

  13.2 KB · Affichages: 53

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Décembre 2009

• #25

Re : Poignée de recopie

Salut Modeste,

Modeste à dit:

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

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 5 Décembre 2009

• #26

Re : Poignée de recopie

Bonjour à tous,

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




A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Décembre 2009

• #27

Re : Poignée de recopie

Salut JCGL 🙂

Voilà maintenant je sais tout, merci.

A+

 

Vote positif 0 Vote négatif

Modeste

XLDnaute Barbatruc

• 5 Décembre 2009

• #28

Re : Poignée de recopie

Salut JC,

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

@+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 5 Décembre 2009

• #29

Re : Poignée de recopie

Re,

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

A+

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 5 Décembre 2009

• #30

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.

Code:

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

 

Dernière édition: 6 Décembre 2009

Vote positif 0 Vote négatif