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

[bibbip35]

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

 

[Softmama]

Bonjour,


Pas sûr d'avoir tout compris :

Peut-être en G2, cette formule, à recopier vers le bas :

=SI(ESTERREUR(D2);"";RECHERCHEV(C2;Feuil2!$A$1:$B$5;2;FAUX))

 

[bibbip35]

Merci mais ce que je souhaiterais copier coller la valeur de la cellule si la formule ne renvoie pas d erreur

 

[soan]

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 :

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

 

[bibbip35]

Super TOP

Merci !!!