Microsoft 365 Première cellule vide ou égal zéros dans une plage définie

[juju91]

Re bonjour,

Encore un problème que je vous soumets
J'ai ''créé'' le petit code ci-dessous qui permet que copier la cellule active et celle adjacente dans la première cellule vide d'une autre colonne.

J'ai plusieurs problème..
Je souhaiterais coller (la valeur) des deux cellules dans la première cellule qui et vide OU la première cellule qui est égal à zéro.
et si possible avoir un message qui s'affiche si toutes les cellules de la plage définie sont déjà remplies ( hors vide ou résultat formule égal à zéro)

Private Sub COPIE_BAR_Click()
Application.ScreenUpdating = False
Cells(ActiveCell.Row, "B").Select
ActiveCell.Offset(, 0).Resize(, 2).Copy
Cells(ActiveCell.Row, "j").Select
Range("J74:J18").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.ScreenUpdating = True
End Sub


je joins u fichier pour que ma demande soit plus simple à comprendre.....


Cdt

 

[sousou]

Bonjour.
pas tout compris!
peut-tu préciser en donnant un exemple du résultat à obtenir
je click (ici) je copie tels cellules à cet emplacement.
c'est quoi la plage définit?
quid des ligne masquée?

 

[fanch55]

Bonjour, pareil que @sousou
Le code ne colle pas à ce que tu décris, tu veux copier où ?
je présume qu'en fait Range("J74:J18").Select serait plutôt Range("J74:J78").Select ?
Associer autant d'activex ne va pas forcément t'aider

 

[gbinforme]

Bonjour à tous
Avec ce que j'ai compris ce code devrait fonctionner :

Private Sub COPIE_BAR_Click()
Dim cel As Range
    Cells(ActiveCell.Row, "B").Resize(1, 2).Copy
    For Each cel In Range("J74:J78")
        If IsEmpty(cel) Or cel.Value = 0 Then
            cel.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
            Exit For
        End If
    Next cel
End Sub

 

[fanch55]

Bonjour à tous
Avec ce que j'ai compris ce code devrait fonctionner :

Private Sub COPIE_BAR_Click()
Dim cel As Range
    Cells(ActiveCell.Row, "B").Resize(1, 2).Copy
    For Each cel In Range("J74:J78")
        If IsEmpty(cel) Or cel.Value = 0 Then
            cel.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        End If
    Next cel
End Sub

Salut @gbinforme,
attention: Cells(ActiveCell.Row, "B") ne présume pas que ce soit la cellule associée à l'activex ...