Recopier valeurs si différent de #N/A en VBA

Pierrot93

XLDnaute Barbatruc

• 25 Mars 2010

• #2

Re : Recopier valeurs si différent de #N/A en VBA

Bonjour Aubelix

si j'ai bien compris :

Code:

Option Explicit
Sub test()
Dim c As Range
For Each c In Range("B2:B" & Range("B65536").End(xlUp).Row)
    If Not IsError(c) Then c.Offset(0, 11).Value = c.Value
Next c
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 25 Mars 2010

• #3

Re : Recopier valeurs si différent de #N/A en VBA

Bonjour Pierrot93.

Merci pour ton aide.
Cela me convient et fontionne très bien.

Cordialement. 🙂

 

Vote positif 0 Vote négatif

merinos-BernardEtang

XLDnaute Accro

• 25 Mars 2010

• #4

Re : Recopier valeurs si différent de #N/A en VBA

plus simple:

dans la colonne M tu mets: "=IF(ISERROR(B6);"";B6)" (en tout cas pour la ligne6)


pas de macro... pas de stress.

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 31 Mars 2010

• #5

Re : Recopier valeurs si différent de #N/A en VBA

Bonjour à tous les amis du Forum. 🙂

Après une utilisation soutenue, un cas de figure se présente à moi.
Aussi, je reviens vers vous, pour vous soumettre le problème.

Si la Date = "#N/A" ET si dans la celulle correspondante en colonne W contient la valeur "S/T ABC", ne rien copier, passer à la ligne en dessous
sinon recopier la valeur même si c'est "#N/A"
(C'est le cas de figure). Car la valeur dans la colonne Num n'est pas troivé.

Par avance, Merci pour votre aide.
Cordialement.

 

Pièces jointes

• RECOPIER VALEURS SI DIFFERENT DE NA.xls

  18 KB · Affichages: 127

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Mars 2010

• #6

Re : Recopier valeurs si différent de #N/A en VBA

Bonjour,

pas sur d'avoir bien compris.... dans quels cas la copie doit-elle se faire ??? regarde le code ci-dessous, en jouant avec les "not", et / ou les "and" et "or" tu devrais pouvoir arriver à la solution :

Code:

Option Explicit
Sub test()
Dim c As Range
For Each c In Range("B2:B" & Range("B65536").End(xlUp).Row)
    If Not IsError(c) And Not c.Offset(0, 21).Value = "S/T ABC" Then c.Offset(0, 11).Value = c.Value
Next c
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 31 Mars 2010

• #7

Re : Recopier valeurs si différent de #N/A en VBA

Bonjour Pieerot93 🙂

Merci pour ta réponse.
Je me suis mal exprimé, mais avec ton code, j'ai réussi à obtenir
ce que je voulais.
If c.Offset(0, 21).Value <> "S/T ABC" Then c.Offset(0, 11).Value = c.Value

Une autre question :
Comment peut-on ignorer un message lors de la création de nom ?
Car je me sers de la même feuille pour faire mes Mises à jour et le
nom exite déja.
Voici mon code et je ne voudrai pas avoir à répondre pour écrase le nom.

'Création nom: "Début_DIA"
Range("G1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.CreateNames Top:=True, Left:=False, Bottom:=False, Right:= _
False


Par avance Merci.
Cordialement.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 31 Mars 2010

• #8

Re : Recopier valeurs si différent de #N/A en VBA

Re

essaye ainsi :

Code:

Application.DisplayAlerts = False
Selection.CreateNames Top:=True
Application.DisplayAlerts = True

bonne fin d'après midi
@+

 

Vote positif 0 Vote négatif

aubelix

XLDnaute Impliqué

• 2 Avril 2010

• #9

Re : Recopier valeurs si différent de #N/A en VBA

Bonjour Pierrot93 et les amis du Forum. 🙂

Merci pour ta réponse Pierrot93
Bon week-end à tous. 😎

Cordialement.

 

Vote positif 0 Vote négatif