collage spécial

[Fanch]

en fait, j'aimerai faire un collage spéciale d'une feuile vers une autre feuille. Bon ca je sais faire mais en fait, j'aimerai qu'il me fasse aussi automatiquement un changement. C'est à dire en fait, qu'il me colle, par exemple,'49' pour 'régime 49' ('regime 49 est ce qui était présent dans la case de départ)
Merci d'avance

 

[WILFRIED]

Salut fanch

Avec Vba tu peu très bien faire une association entre une combo de touche (ctrl+maj+I par exemple) et une macro qui executerait ton souhait. Le problème majeur est de connaitre précisèment la règle pour ton collage :

Est ce que tu doit toujour conserver le dernier nombre contenue dans la céllule?

Le dernier mots?

A+

 

[fanch]

oui en fait mes cellules sont:

régime 1
régime 2a
régime 2b
régime 3
......
régime 50

C compliqué à faire?

 

[WILFRIED]

Non pas trop si tu veux en fait ne récupérer que le dernier 'mots' de ta chaine :

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, _
skipBlanks:= False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Formula = Right(ActiveCell.Value, Len(ActiveCell.Value) - 7)

A+

 

[fanch]

en fait je suis pas tres an excel qu'est ce je dois faire avec ce code.
Merci beaucoup pour ton aide

 

[Moa]

Salut Franch !

En fait si tes cellules commencent toutes par le mote régime, il te suffit, d'utiliser la fonction Droite additionnée à Nbcar, tel que :

=DROITE(B3;NBCAR(B3)-7)

Regarde l'exemple joint !


@ +++

Moa [file name=Franch.zip size=1549]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Franch.zip[/file]

 

[Moa]

Re !

Une autre version avec macro, mais à modifier légèrement selon ton nombre de lignes.

Sub Recop()
Dim i As Integer
For i = 3 To 7
Sheets(2).Range('B' & i) = Right(Sheets(1).Range('B' & i), Len(Sheets(1).Range('B' & i)) - 7)
Next i
End Sub

Regarde l'exemple joint

@ +++

Moa [file name=Franch2.zip size=10116]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Franch2.zip[/file]