Discussion :

[shaku]

Bonjour , voici un code qui échange le contenu de 2 cellules :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub echange(ByVal Cel1 As Long, ByVal Cel2 As Long)
dim val as double
val = cells(cel1,col).value
cells(cel1,col).value = cells(cel2,col).value
cells(cel2,col).value = val
End Sub

J'aimerais savoir faire un échange pour 2 lignes entières , mes essais avec range(cells(...)) n'ont pas donner de bons résultats mais c'etait dans le bon chemin , quelqu'un aurait une idée ?

merci

[LeForestier]

Bonjour,
En inversant directement les lignes ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub echange(ByVal Lig1 As Long, ByVal Lig2 As Long)
'Lig1 DOIT être plus petit que Lig2
    Sheets("Feuil1").Select
    Rows(Lig2).Insert
    Rows(Lig1).Copy Rows(Lig2)
    Rows(Lig2 + 1).Copy Rows(Lig1)
    Rows(Lig2 + 1).Delete
End Sub

A+

[laetitia]

bonjour le fil le forum inverser les 2 premieres lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub Inverse()
Dim T
T = [a1:iv1]: [a1:iv1] = [a2:iv2].Value: [a2:iv2] = T
End Sub

ou pour exploiter des variables rows(x,y)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub Inverse1()
Dim x As Long, y As Long, t
x = 2: y = 1
t = Rows(x): Rows(x) = Rows(y).Value: Rows(y).Value = t
End Sub

[LeForestier]

Bonjour Laetitia,
Petit inconvéniant en passant par un variant, les formules ainsi que les mises en formes ne sont pas prisent en compte alors qu'avec copy les transcriptions sont littérales.
A+

[shaku]

Bonjour , merci pour votre aide mais finalement j'ai trouvé une méthode plus simple en faisant une simple boucle dans une de mes macros .

[LeForestier]

Bonjour , merci pour votre aide mais finalement j'ai trouvé une méthode plus simple en faisant une simple boucle dans une de mes macros .

Ce qui veut dire que tu n'a rien compris à ce que l'ont t'a expliqué.
Bonne continuation.
A+