Microsoft 365 Copier coller valeurs cellule si different de #N/A

  • Initiateur de la discussion Initiateur de la discussion bibbip35
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

bibbip35

XLDnaute Occasionnel
Bonjour

Je souhaiterais faire une macro qui permettrait de copier coller une valeurs de cellule si
la cellule est different de #N/A dans la colonne G Uniquement

C'est à dire que la recherche V aurait fonctionné ?

Est-ce que vous pensez que cela soit possible ? J'ai bien trouvé des macro conditionnel
Mais qui n'ont pas l'air de fonctionnée avec des formules

Merci encore pour votre aide

Bibbip35


#N/A
 

Pièces jointes

Bonjour bibbip, Softmama,

ton fichier en retour. 🙂

note que "Feuil2" est entièrement vide.

va sur "Feuil1", et fais Ctrl e ➯ travail effectué ! 🙂

code VBA de Module1 :

VB:
Option Explicit

Sub CpyData()
  If ActiveSheet.Name <> "Feuil1" Then Exit Sub
  Dim n&: n = Cells(Rows.Count, 7).End(3).Row: If n = 1 Then Exit Sub
  Dim sh As Worksheet, i&, j&: j = 1: Application.ScreenUpdating = 0
  Set sh = Worksheets("Feuil2"): sh.Columns("A:B").ClearContents
  For i = 2 To n
    With Cells(i, 7)
      If Not IsError(.Value) Then
        sh.Cells(j, 1) = .Offset(, -4): sh.Cells(j, 2) = .Value
        j = j + 1
      End If
    End With
  Next i
  sh.Select: Range("A1:B" & j - 1).Borders.LineStyle = 1
End Sub

si besoin, tu peux demander une adaptation.
à te lire pour avoir ton avis. 😉

soan
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
371
Réponses
4
Affichages
535
Réponses
5
Affichages
238
Réponses
20
Affichages
872
Retour