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

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

  • TEST.xlsx
    15.2 KB · Affichages: 2

soan

XLDnaute Barbatruc
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

  • TEST.xlsm
    23 KB · Affichages: 2

Discussions similaires

Réponses
4
Affichages
465

Membres actuellement en ligne

Statistiques des forums

Discussions
288 632
Messages
1 893 633
Membres
169 984
dernier inscrit
mdemrs
Haut Bas