Analyse Erreur Automatique Macro Excel

**EnzoExcel** · 16/12/2014, 16h09

Bonjour, et voici le dernier problème de ma Macro aujourd'hui..

Je veux copier la colonne des indices de ma feuille 2 à la feuille Export donc

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
' Indice Référence Principale
 
   Sheets("Feuil2").Select
    Range("T2:T1000").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
 
    Sheets("Export").Select
    Range("D2").Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Tous se passe bien, tous mes indices qui sont tous de 0 généralement se collent.
Mais petit bémol !
Ca créé automatiquement la petite case avec le petit "triangle vert" sur les cotés en haut à gauche des cases qui permet d'analyser une erreur
Sauf que je ne veux pas que cette petite fonction apparait ! Je veux juste copier coller ma colonne moi !

Comment puis je m'y prendre afin d'éviter cela??
Merci encore bcp de votre aide!

La question aussi c'est, est ce que ça existe au moins ? (un code qui empeche l'analyse erreur)

**eric4459** · 16/12/2014, 16h14

Rebonjour Enzo,
Je ne comprend pas pourquoi tu précises que tu veux copier les cellules de T2 à T1000 puis dans la ligne suivante tu vas copier depuis T2 toutes les cellules de ta colonne

Code :

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

Selection.End(xlDown)

, si il y a 1200 lignes tu copieras 1200 lignes.
Ensuite je ne comprends pas non plus pourquoi tu fais référence à la cellue A1 de la feuille export alors que tu colles tout en D3'
Y-t-il des raisons à cela?
Le code suivant ira chercher 999 valeurs dans ta colonne T de la feuille 2 et les collera en cellule D3 de la feuille export.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test2()
Dim exp  As Worksheet
Dim rng As Range
Set exp = ThisWorkbook.Sheets("export")
Set rng = exp.Range("D3")
 rng = rng.Offset(0)
    Sheets("Feuil2").Select
    Range("T2:T1000").Copy
    exp.Select
    rng.Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
 
End Sub

Eric

**Marc-L** · 16/12/2014, 16h15

Bonjour,

regarder dans les options du classeur du côté de la Vérification des erreurs …

Et normalement avec le Générateur de macros, le code est livré sur un plateau !

**EnzoExcel** · 16/12/2014, 16h27

Yes merci eric concernant la ligne

Code :

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

ActiveCell.Offset(1, 0).Range("A1").Select

c'était juste une erreur, elle n'avait rien à faire ici,
J'ai utilisé votre code qui me semblait bcp plus judicieux, merci, juste j'ai remplacé D3 par D2 car bizarrement ca mettait une case vide, mais apparemment c'est ce qu'il fallait faire car cela fonctionne.

Mais malheureusement j'ai toujours mon problème qui persiste concernant l'analyse auto des erreurs ( le petit triangle vert en haut à droite de la case qui reste, et que je voudrais voir disparaitre)

Merci Marc-L, je vais allé y jeter un coup d'oeil

Mais si d'autres personnes connaissent déjà la solution, cela me ferait gagner un temps fou

Merci bcp en tt cas

**eric4459** · 17/12/2014, 11h19

Bonjour Enzo,
Voici la solution à ton problème, sur Excel 2010 (la version que j'utilise) tu peux décocher une case "Activer la vérification des erreurs en arrière plan" dans le menu Option, onglet Formules.
Eric