Sythaxe séléction plage avec No de ligne en variable

Re : Sythaxe séléction plage avec No de ligne en variable

Bonjour,

Un essai avec ce bout de code:

(xls, xlsx, xlsm, à adapter en fonction du fichier)

Bien à toi,

mth

Bonjour Bebere 🙂

Re : Sythaxe séléction plage avec No de ligne en variable

bonjour Vorens
dim L as long 'ligne
dim C as integer'colonne
dim tbl as variant
with Workbooks("EA Framework Maintenance").Sheets("Attributes List")
l=.range("C65536").end(xlup).row
C=13
tbl=.Range("C" & l & ":C" & c )'défini un tableau d'une colonne et x lignes
end with
voir aide(touche F1)
à bientôt

Re : Sythaxe séléction plage avec No de ligne en variable

Re


Oui cela fonctionne parfaitement merci beaucoup !!

J'ai encore une petite question dans le même ordre.

La ligne suivante ne fonctionne pas. comme ecrire le .paste pour que cela fonctionne ?

Workbooks("Toto").Sheets("Titi").Range("A1").Paste

(Je désire faire un Paste spéciale => transposé. Toute l'instruction en une seule ligne si possible.


Merci par avance pour vos réponses.

Cordialement

Re : Sythaxe séléction plage avec No de ligne en variable

Re,


Voila le type de ligne que je souhouaite mais qui n'est pas acceptée.

Re : Sythaxe séléction plage avec No de ligne en variable

re 🙂

Peut-être avec ça pour partir sur le premier exemple ?


ou:
Targetfilename comportant bien l'extension du fichier.

@ +

mth

Re : Sythaxe séléction plage avec No de ligne en variable

Bonjour Mth
Vorens,
tu enregistres une macro
Range("B1:B10").Select
Selection.Copy
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
tu adaptes le code
Range("B1:B10").Copy
Range("D3").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

quelques autres exemples
Attribute VB_Name = "CopierSeulementFormules"
'Je voudrais copier les formules - seulement les formules- d'un feuille sur
'l'autre.
'Copier spécial formules copie aussi les constantes, or je veux les garder car il
's'agit de remettre à niveau la totalité des calculs dans des feuilles à partir
'd'un modèle corrigé.
'PasteSpecial fait le même chose
'Y a-t-il une solution ?
'Geo

'La procédure CopierFormules ci-dessous doit être lancée pour copier les
'formules de la plage sélectionnée, et la procédure CollerFormules pour
'les coller dans la plage de destination, à partir de la nouvelle cellule
'sélectionnée (sans écraser les cellules contenant déjà une valeur
'constante).
'Laurent Longre

Dim Plage As Range

Sub CopierFormules()
Set Plage = Selection
Plage.Copy
End Sub

Sub CollerFormules()
Dim I As Long, J As Integer
Dim Lignes As Long, Cols As Integer
Dim Dest As Range

Set Dest = Selection
Lignes = Plage.Rows.Count
Cols = Plage.Columns.Count
If Dest.Count = 1 Then
Set Dest = Dest.Resize(Lignes, Cols)
ElseIf Dest.Rows.Count <> Lignes Or Dest.Columns.Count <> Cols Then
MsgBox "Taille de la plage sélectionnée incorrecte"
Exit Sub
End If
Application.ScreenUpdating = False
For I = 1 To Lignes
For J = 1 To Cols
If Plage(I, J).HasFormula Then Plage(I, J).Copy Dest(I, J)
Next J
Next I
Dest.Select
Plage.Copy
End Sub

'Autre solution
'Pour copier au même endroit que Feuil1 dans Feuil2
'seulement les formules de Feuil1.

Sub PourGeo()
'Catherine Copigny, mpfe

Feuil1.UsedRange.SpecialCells(xlCellTypeFormulas, 23).Select
For Each zaza In Selection
Feuil2.Range(zaza.Address).FormulaLocal = zaza.FormulaLocal
Next
End Sub

à bientôt

Re : Sythaxe séléction plage avec No de ligne en variable

Re

Merci pouzr vos réponses. Mon problème est résulut !

Merci encore

Cordialement

Vorens