Discussion :

[thomhcv59]

Bonjour tous le monde ,

Etant débutant en vba ,

j'ai une plage de cellule A2:A6 dans la Feuil1 que j'aimerai copier dans la Feuil2 en B2:B6

mais si B2:B6 est non-vide alors il copie la plage vers la droite donc en C2:C6

Je pense qu'il faut utiliser range et offset mais je ne sais pas comment m'y prendre

Avez-vous une idée ?

Merci d'avance pour vos réponses

Thom

[casefayere]

Bonjour,

mais si B2:B6 est non-vide alors il copie la plage vers la droite donc en C2:C6

Expliques-toi mieux, il suffit qu'une cellule de la plage soit non vide ?
et si "C2:C6" est non vide, et si "D2:d6" ..............

[thomhcv59]

Bonjour ,

toutes les cellules de la plages seront pleine

En gros a chaque action de la macro , le résultat décale d'une colonne

Je met un fichier en pièce joint

Thom

[thomhcv59]

SMBeccaria

cela marche mais si je veux encore rajouter d'autre résultat sur la prochaine colonne admettons en D2 : D6

Il faut mettre une variable à la place de B2 ?

[Philippe Tulliez]

Bonjour,
En fait si j'ai bien compris tu souhaites ajouter les données se trouvant dans les cellules A2:A6 de la feuille nommée par exemple [Feuil1] à la suite des colonnes remplies en lignes 2:6 de la feuille nommée pour l'exemple [Feuil2]
Si la réponse est positive voici un code qui répond à ton attente

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Explicit
Sub AddColumn()
 Dim rangeSource As Range, RangeTarget As Range
 With ThisWorkbook
  Set rangeSource = .Worksheets("Feuil1").Range("A2:A6")
  With .Worksheets("Feuil2").Range("B2").CurrentRegion
   Set RangeTarget = .Offset(, .Columns.Count * Abs(.Count > 1)).Resize(rangeSource.Rows.Count, 1)
  End With
 End With
 rangeSource.Copy RangeTarget
End Sub

[casefayere]

Re le forum, Philippe, SMBeccaria, thomhcv59
Au départ, pour la copie, et en suivant l'exemple, je pensais à un code de ce genre :

Code :

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

Sheets("Feuil2").Range("B2:F6").SpecialCells(xlCellTypeBlanks).Resize(5, 1).Value = Sheets("Feuil1").Range("A2:A6").Value

[SMBeccaria]

Hello,

Essaie ça:

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
 
 
Sub thomhcv59()
 
    Dim mywb As Workbook
 
    Set mywb = ThisWorkbook
 
    If mywb.Worksheets(2).Range("B2") = "" Then
        mywb.Worksheets(1).Range("A2:A6").Copy mywb.Worksheets(2).Range("B2")
    Else
        mywb.Worksheets(1).Range("A2:A6").Copy mywb.Worksheets(2).Range("C2")
    End If
 
End Sub