Décalage de cellule VBA

Version imprimable

27/09/2013, 11h12
thomhcv59

Décalage de cellule VBA

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
27/09/2013, 11h30
casefayere

Bonjour,

Citation:

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" ..............

Hello,

Essaie ça:

Code:

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

27/09/2013, 11h43
thomhcv59

1 pièce(s) jointe(s)

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
27/09/2013, 11h46
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 ?

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:

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

27/09/2013, 12h22
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:

Sheets("Feuil2").Range("B2:F6").SpecialCells(xlCellTypeBlanks).Resize(5, 1).Value = Sheets("Feuil1").Range("A2:A6").Value
27/09/2013, 12h58
Philippe Tulliez

Bonjour Dominique,

Code:

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

Le problème avec cette solution c'est quelle entraîne une erreur dans le cas où aucune cellule n'est vide dans la plage B2:F6 ou si une cellule est vide dans plusieurs colonnes (cellules non contiguë.
27/09/2013, 13h02
casefayere

Ok Philippe,:ccool: je n'ai toujours pas de tête, bien je je sois convaincu que tu ais raison, je me suis fié à ça :

Citation:

toutes les cellules de la plages seront pleine

, mais je n'ai pas pensé à la colonne F (quoique, une modification aurait fait l'affaire, mais quitte à gonfler un code....)
27/09/2013, 13h05
thomhcv59

Merci a tous pour vos réponses la solution

La réponse de Philippe est la bonne pour moi

Merci encore

Thom
27/09/2013, 13h38
Marc-L

J'arrive un peu tard mais il y a aussi ceci :

Feuil2.Cells(2, Columns.Count).End(xlToLeft)(1, 2).Resize(5).Value = Feuil1.[A2:A6].Value …