Copier Coller, l'équivalant du $ en VBS
Résolu
Aquhydro
Messages postés
172
Date d'inscription
Statut
Membre
Dernière intervention
-
Aquhydro Messages postés 172 Date d'inscription Statut Membre Dernière intervention -
Aquhydro Messages postés 172 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je voudrais juste savoir quelle formule il fallait employer en VBS pour, par exemple, copier la case S14 en A12, puis supprimer la ligne S, pour que la case T14 se retrouve en S14 et qu'a la réutilisation de mon script, ça soit la case S14 qui soit de nouveau copiée coller, et toujours en A12. A l'heure actuelle, le copier coller ne marche que pour la première fois, et après les cellules copiées deviennent un peu n'importe lesquels, y a t'il un équivalant au $S$14 de Excel qui permet de fixer la valeur comme étant, quoi qu'il se passe dans la forme du tableau, la valeur de la case S14?
Merci beaucoup...
Aquhydro
je voudrais juste savoir quelle formule il fallait employer en VBS pour, par exemple, copier la case S14 en A12, puis supprimer la ligne S, pour que la case T14 se retrouve en S14 et qu'a la réutilisation de mon script, ça soit la case S14 qui soit de nouveau copiée coller, et toujours en A12. A l'heure actuelle, le copier coller ne marche que pour la première fois, et après les cellules copiées deviennent un peu n'importe lesquels, y a t'il un équivalant au $S$14 de Excel qui permet de fixer la valeur comme étant, quoi qu'il se passe dans la forme du tableau, la valeur de la case S14?
Merci beaucoup...
Aquhydro
A voir également:
- Copier Coller, l'équivalant du $ en VBS
- Historique copier coller - Guide
- Copier-coller - Accueil - Informatique
- Copier coller pdf - Guide
- Style d'écriture a copier coller - Guide
- Arobase copier coller - Forum Windows 10
3 réponses
Mon code ne comporte pas d'erreur, il a été fait avec le créateur de macro de excel, donc il est laid mais fonctionne... La première fois. La second, il transforme mon S14 en S15, S16 ou S13, ou encore T14 ou R14, je n'en sais rien, puisque j'ai crée des boucles et que celles ci m'empechent de voir clair, or, je ne maitrise pas assez cela pour savoir exactement quoi enlever et quoi remettre.
C'est en Visual Basic Script, je pense que c'est VBS, mais peut etre est ce du VBA, dans tout les cas, voici une partie du code de copie. Ce que je veux c'est juste fixer les adresse des valeurs a copier aux cellules et non pas a leur contenu ou autre :
Pour mes lignes de copie les voila:
Application.CutCopyMode = False
Selection.Copy
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AB1501").Select
Application.CutCopyMode = False
Selection.Copy
Range("H15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AC1501").Select
Application.CutCopyMode = False
Selection.Copy
Range("AH9").Select
ActiveSheet.Paste
Range("AD1501").Select
Application.CutCopyMode = False
Selection.Copy
Range("H16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I16").Select
Range("AE1501").Select
Application.CutCopyMode = False
Selection.Copy
Columns("AE:AE").ColumnWidth = 8.57
ActiveWindow.LargeScroll ToRight:=-1
Range("H18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AP1436:AP1437").Select
Range("AP1437").Activate
ActiveWindow.SmallScroll Down:=99
Range("AF1501").Select
Application.CutCopyMode = False
Selection.Copy
Range("H9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Elles ont été obtenues basiquement avec l'utilisation de la création de macro de excel, donc sont certainement pas très jolies...
C'est en Visual Basic Script, je pense que c'est VBS, mais peut etre est ce du VBA, dans tout les cas, voici une partie du code de copie. Ce que je veux c'est juste fixer les adresse des valeurs a copier aux cellules et non pas a leur contenu ou autre :
Pour mes lignes de copie les voila:
Application.CutCopyMode = False
Selection.Copy
Range("C4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AB1501").Select
Application.CutCopyMode = False
Selection.Copy
Range("H15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AC1501").Select
Application.CutCopyMode = False
Selection.Copy
Range("AH9").Select
ActiveSheet.Paste
Range("AD1501").Select
Application.CutCopyMode = False
Selection.Copy
Range("H16").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I16").Select
Range("AE1501").Select
Application.CutCopyMode = False
Selection.Copy
Columns("AE:AE").ColumnWidth = 8.57
ActiveWindow.LargeScroll ToRight:=-1
Range("H18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AP1436:AP1437").Select
Range("AP1437").Activate
ActiveWindow.SmallScroll Down:=99
Range("AF1501").Select
Application.CutCopyMode = False
Selection.Copy
Range("H9").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Elles ont été obtenues basiquement avec l'utilisation de la création de macro de excel, donc sont certainement pas très jolies...
J'ai trouvé la solution : Range("AA2").Copy
Range("C4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("AB2").Copy
Range("H15").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
C'est classique, c'est juste que j'avais un problème de sélection de mes cellules
Range("C4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Range("AB2").Copy
Range("H15").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
C'est classique, c'est juste que j'avais un problème de sélection de mes cellules