Discussion :

[Lechette]

Bonjour!!!

Je souhaite créer une macro qui me permette de tester si une cellule est utilisée, et au quel cas ma zone de collage se décale de 4 cellules vers la droite. voici le bout de code que je ne parviens pas à faire fonctionner.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim repere As String
 
Sheets("Archivage").Select
If Range("k4") = "" Then
repere = "j7"
Else: repere = Range("k4").ActiveCell.adress
repere = Range(repere).Offset(0, 4)
End If
 
Sheets("TdP").Select
Range("DATE2").Select
    Selection.Copy
    Sheets("Archivage").Select
    If (Range(repere).Value = "") Then
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
        :=False, Transpose:=False
    Else: Range(repere).Offset(0, 4).Select
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
        :=False, Transpose:=False
    End If

Merci d'avance!

[fring]

Bonjour,

Je remet ton code avec quelques commentaires

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim repere As String
 
Sheets("Archivage").Select
If Range("k4") = "" Then
repere = "j7" '<-- repere = Range("j7").Address
Else
' là je comprend pas ce qu'on veut faire ?
repere = Range("k4").ActiveCell.adress '<-- soit repere = Range("k4").Address
repere = Range(repere).Offset(0, 4)' '<-- soit repere = Range("j7").Offset(0, 4).Address
End If
 
Sheets("TdP").Select
Range("DATE2").Select
    Selection.Copy
    Sheets("Archivage").Select
    If (Range(repere).Value = "") Then '<-- If Range(repere).Value = "" Then
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
        :=False, Transpose:=False
    Else: Range(repere).Offset(0, 4).Select '<-- encore un décalage de 4 colonnes ?
    Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks _
        :=False, Transpose:=False
    End If

Voici un 1er jet

[Lechette]

Voila un code plus concis.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
 
Dim repere As String
 
Sheets("feuil1").Select
    If Range("k4") = "" Then
        repere = "j7"
    Else: repere = Range("k4").Address
        repere = Range(repere).Offset(0, 4)
    End If
 
Range("k4").Value = repere
 
End Sub

En fait k4 est une cellule repère. Elle doit prendre comme valeur l'adresse de "repere".
Ainsi à chaque fois qu'on lance la macro, repere se décale de 4 colonnes vers la droite. je suis tout perdu!

[Lechette]

je me rends compte que je ne suis pas très clair!!

k4 est une cellule référence.
repere est initialement j7
ca ira mieux dis comme ca je pense

[fring]

ici y a un os

Code :

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

1
2
Else: repere = Range("k4").Address
        repere = Range(repere).Offset(0, 4)

en clair tu dis
sinon :
repere = "k4"
repere = range("k4").offset(0, 4)....là repere prend la valeur de la cellule O4, c'est ce que tu souhaites ? Ou repere doit prendre l'adresse de la cellule O4 ?

[Abed_H]

Bonjour
essaie ceci :

Code :

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

1
2
3
4
5
6
7
Sub test1()
 If Range("K4").Value = "" Then
    Range("K4") = Range("K4").Offset(3, -1).Address
      Else
       Range("K4") = Range(Range("K4").Value).Offset(3, -1).Address
  End If
End Sub

Bonne journnée

Abed_H