Discussion :

[Inguyone]

Bonjour le forum,

Est-il possible d'intégrer la ligne de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Selection.Copy
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
 Application.CutCopyMode = False

Dans la macro ci-dessous.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Kase As Range
 If Not Application.Intersect(Target, Range("A2:A15")) Is Nothing Then
 If Target.Count > 1 Then
 For Each Kase In Target
 Worksheet_Change Kase
 
 Next Kase
 Exit Sub
 End If
 If Not IsEmpty(Target.Value) Then 'on verifie que la cellule n'est pas vide de données
 Target.Offset(0, 1).Formula = "=VLOOKUP(A2:A15,Feuil1!A1:B10,2,0)"
 
 Else
 
 Target.Offset(0, 1).ClearContents 'on efface la formule
 End If
 End If
End Sub

Merci pour votre aide

[joe.levrai]

Bonjour,

question sans finalité et difficulté rencontrée, d'où réponse sans aller plus loin

Est-il possible d'intégrer la ligne de code

oui

[Inguyone]

Bonjour à tous,

Mon problème est le suivant:

J'ai une macro qui tourne très bien, mais le souci est que plusieurs personnes sont sensées utiliser la feuille où se trouve la macro pour faire un copier/coller de toutes les données vers un autre fichier n'étant pas nécessairement toujours nommé de la même façon. Lors de l'action vers un autre fichier en copier/coller une erreur apparaît #N/A dans la cellule de destination, vu que cette macro n'est pas reconnue par le fichier.

J'ai enregistré une macro pour faire un copier/coller dans la cellule qui se modifie en utilisant le coller spécial et valeur. Cela fonctionne.
Il reste donc à intégrer un code du même genre pour figer dans la cellule non plus la formule, mais la valeur.

Mon code faisant tourner la macro de recherche:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Kase As Range
  If Not Application.Intersect(Target, Range("A2:A15")) Is Nothing Then
    If Target.Count > 1 Then
      For Each Kase In Target
        Worksheet_Change Kase
 
 
      Next Kase
      Exit Sub
    End If
    If Not IsEmpty(Target.Value) Then           'on verifie que la cellule n'est pas vide de données
      Target.Offset(0, 1).Formula = "=VLOOKUP(A2:A15,Feuil1!A1:B10,2,0)"
 
    Else
 
      Target.Offset(0, 1).ClearContents  'on efface la formule
    End If
  End If
End Sub

Le code test qui permet de figer la valeur de la cellule et non la formule fait avec l'enregistreur de macros et qui fonctionne dans ce test:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Macro2()
'
' Macro2 Macro
'
 
'
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Voilà ou je voudrais en venir, pourriez-vous m'aider de façon à intégrer d'une manière ou d'une autre, une macro à mon code de recherche. Ceci dit de la façon qu'il vous semblera la meilleure, car je reste le novice dans la création de code, comme vous pouvez le constater.

Merci à tous pour votre aide.

[kiki29]

Salut, juste un conseil subsidiaire : Balise le code de tes posts