Range("A1").copy Sheets("xx") ...?

[babap1]

Bonjour,

J'ai deux petites questions :

1/ J'aimerai lors de mes "Range.Copy", ne copier que le contenu des cellules : sans les commentaires éventules et sans la mise en forme, c'est à dire le contenu brut​

2/ Ma fonction AddEquipment() est lancée par le clic sur un bouton et j'aimerai mettre des conditions sur mes cellules pour que l'utilisateur soit obligé de remplir certaines cases avant de retourner sur ma feuille AuditInput"​

Sub AddEquipment()
    'Fill the form to "AuditInput" the sheet
    Range("C3").Copy Sheets("AuditInput").Range("A" & LRow)
    Range("C4").Copy Sheets("AuditInput").Range("B" & LRow)
    Range("C16").Copy Sheets("AuditInput").Range("N" & LRow)

    Sheets("AuditInput").Select
    
End Sub

merci du coup de main 🙂 et bonne journée.
Baptiste

 

[Spitnolan08]

Re : Range("A1").copy Sheets("xx") ...?

Bonjour,

Si bien compris ta question,
L'enregistreur de macro la réponse sans effort te donnera.

Cordialement

 

[bqtr]

Re : Range("A1").copy Sheets("xx") ...?

Bonjour babap1, Spitnolan08

Voici un exemple :
-La macro teste si les cellules ne sont pas vides.
-Si Ok, elle propose la copie, si Oui -> copie des données, si Non -> sortie de la macro.

Tu peux mettre 30 cellules maxi dans la variable Plg.
Par contre ta variable Lrow vient d'où ?

Sub TestCellule()

Dim Plg As Range, Cell As Range
Dim Concat As String, i As Integer

Application.ScreenUpdating = False

With ActiveSheet
  Set Plg = Union(.Range("C3"), .Range("C4"), .Range("C16"))
     For Each Cell In Plg
         If Cell = "" Then Concat = Concat & Cell.Address & vbCrLf
     Next

        If Concat <> "" Then
           MsgBox "Liste des cellules à remplir. " & vbCrLf & Concat & vbCrLf & "Fin de la procédure.", , "Attention:"
           Exit Sub
        Else
           If MsgBox("Toutes les cellules sont remplies." & vbCrLf & "Copie des données.", vbYesNo, "Ok:") = vbYes Then
                .Range("C3").Copy
                Sheets("AuditInput").Range("A" & Lrow).PasteSpecial xlValues
                .Range("C4").Copy
                Sheets("AuditInput").Range("B" & Lrow).PasteSpecial xlValues
                .Range("C16").Copy
                Sheets("AuditInput").Range("N" & Lrow).PasteSpecial xlValues
           Else: Exit Sub
           End If
        End If
End With

Application.CutCopyMode = False
Application.ScreenUpdating = True
Sheets("AuditInput").Activate

End Sub

A+

 

[Spitnolan08]

Re : Range("A1").copy Sheets("xx") ...?

Bonjour,

Si bien compris ta question,
L'enregistreur de macro la réponse sans effort te donnera.

Cordialement

Salut bqtr : pas vu la 2ème question...😱