Microsoft 365 copier et coller dans cellule si vide sinon passer dans la cellule suivante

bpo · 11 Mars 2020

Bonjour à tous,

j'aimerais avoir de l'aide concernant une macro, je travaille sur un fichier assez grand mais j'aimerais faire une copie d'une colonne (D3335) et la coller à l'emplacement (D35), ça j'arrive à le faire mais j'aimerais que ensuite si je le refais qu'il colle les éléments dans l'emplacement suivant (E3:E5) car l'autre sera déjà rempli ainsi de suite que à chaque fois que j'appui sur mon bouton qu'il remplisse la cellule suivante à droite.

Merci d'avance pour votre aide.

Lolote83 · 11 Mars 2020

Salut BPO,
Avec cette petite macro, mais il ne faut pas qu'il y ai d'autres données en ligne 3 que celles que tu copie

VB:

Sub TEST()
    Range("D33:D35").Copy
    xDerCol = Range("XFD3").End(xlToLeft).Column
    Cells(3, xDerCol + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

@+ Lolote83

Fred0o · 11 Mars 2020

Bonjour bpo

Voici un exemple a tester :

VB:

Sub Copie()
    Range("D33:D35").Copy
    If [D3] = "" Then
        [D3].Select
        ActiveSheet.Paste
    ElseIf [E3] = "" Then
        [E3].Select
        ActiveSheet.Paste
    Else
        [D3].End(xlToRight).Offset(0, 1).Select
        ActiveSheet.Paste
    End If
End Sub

Lolote83 · 11 Mars 2020

Salut BPO,
Avec cette petite macro, mais il ne faut pas qu'il y ai d'autres données en ligne 3 que celles que tu copie

VB:

Sub TEST()
    Range("D33:D35").Copy
    xDerCol = Range("XFD3").End(xlToLeft).Column
    Cells(3, xDerCol + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

@+ Lolote83

bpo · 11 Mars 2020

Fred0o à dit:

Bonjour bpo

Voici un exemple a tester :

VB:

Sub Copie()
    Range("D33:D35").Copy
    If [D3] = "" Then
        [D3].Select
        ActiveSheet.Paste
    ElseIf [E3] = "" Then
        [E3].Select
        ActiveSheet.Paste
    Else
        [D3].End(xlToRight).Offset(0, 1).Select
        ActiveSheet.Paste
    End If
End Sub

Merci il marche effectivement mais il y a un souci il colle pas les valeurs , je veux qu'il colle les valeurs que j'ai et la ça colle juste des 0

bpo · 11 Mars 2020

Lolote83 à dit:
Salut BPO,
Avec cette petite macro, mais il ne faut pas qu'il y ai d'autres données en ligne 3 que celles que tu copie

VB:

Sub TEST() Range("D33:D35").Copy xDerCol = Range("XFD3").End(xlToLeft).Column Cells(3, xDerCol + 1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False End Sub

@+ Lolote83

merci ça fonctionne

Fred0o · 11 Mars 2020

bpo à dit:
Merci il marche effectivement mais il y a un souci il colle pas les valeurs , je veux qu'il colle les valeurs que j'ai et la ça colle juste des 0

Re-bonjour bpo
D’où l’intérêt d’être précis lors des demandes. Je vois que tu as trouve une solution qui fonctionne...

Microsoft 365 copier et coller dans cellule si vide sinon passer dans la cellule suivante

bpo

XLDnaute Nouveau

Lolote83

Fred0o

XLDnaute Barbatruc

Lolote83

XLDnaute Barbatruc

bpo

XLDnaute Nouveau

bpo

XLDnaute Nouveau

Fred0o

XLDnaute Barbatruc

Discussions similaires