Microsoft Visual Basic demande pour macro

Version imprimable

02/01/2014, 16h30
max7899

Microsoft Visual Basic demande pour macro

Tout d'abord meilleurs voeux !!
Bonjour je vous écrie car je n'arrive pas à faire une manipulation sur ma macro.

Donc dans Microsoft Visual j'ai des lignes de codes qui reprennent les données d'un tableau d'un logiciel pour les réenvoyer directement sur un tableau excel.
Je voudrai que lorsque sur une ligne de ma macro si je mets : ' (pour désactiver une ligne de code) que mon tableau excel retire automatiquement la colonne concernée par cette ligne de code.

Quelle est la manipulation à faire sur la macro ?
Ou sur le tableur ?

Je vous remercie d'avance pour votre aide.

Cordialement.
02/01/2014, 17h28
Marc-L

Bonjour,

une feuille Excel ne peut lire dans le code, c'est le code VBA qui lit / écrit dans une feuille …

Oui, mais tu ne réponds pas à ma question,
donne moi une solution s'il te plaît pour que dès que je mets une ligne de code en info avec " ' ", automatiquement le tableau supprime des colonnes.

La macro est de la forme suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Liaisons_Topakpi()
 
Dim NomAppli As String
 
'- Numéro SAA
 
NomAppli = "TOPKAPI|SUJET!"
 
'ActiveCell.FormulaR1C1 = "=RC[-3]*2"
' =TOPKAPI|SUJET!E01B10
 
For i = 1 To 99
   'Range("A" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "B03"  '- N° SAA
    Range("B" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "B11" '- GPS Nord
    Range("C" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "B12" '- GPS Est
    Range("D" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "D11" '- GPS Nord décimal
    Range("E" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "D12" '- GPS Est décimal
    Range("F" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "G4" '- Coordonnée TOPKAPI Nord
    Range("G" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "G5" '- Coordonnée TOPKAPI Est
    Range("H" & i).Formula = "=" & NomAppli & "E" & Form...

Merci pour votre aide...

03/01/2014, 09h42
SfJ5Rpw8

Bonjour,

rajouter une apostrophe : ' permet de mettre une ligne de code en commentaire...

si tu veux supprimer des colonnes cela n'as rien à voir !! écrit un code qui supprime une colonne ... utilise l'enregistreur de macro pour t'aider ..

Mes colonnes deviennent bien vides en effet lorsque que je passe mes lignes de codes en simples commentaires à l'aide de :

Code:

1
2
Cells.Select
Selection.ClearContents

Mais j'aimerai littéralement que :

"'Le programme doit lire les lignes de codes valides dans l'ordre de bas en haut et remplir les colonnes du tableau
'dans l'ordre de remplissage."

Le programme :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Liaisons_Topakpi()
 
Dim NomAppli As String
 
Cells.Select
Selection.ClearContents
 
NomAppli = "TOPKAPI|SUJET!"
 
    ' =TOPKAPI|SUJET!E01B10
 
'Le programme doit lire les lignes de codes valides dans l'ordre de bas en haut et remplir les colonnes du tableau
'dans l'ordre de remplissage.
 
Mon programme :
For i = 1 To 99
 
    Range("A" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "B03"  '- N° SAA
    Range("B" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "B11" '- GPS Nord
   ' Range("C" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "B12" '- GPS Est
   'Range("D" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "D11" '- GPS Nord décimal
    Range("E" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "D12" '- GPS Est décimal
    Range("F" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "G4" '- Coordonnée TOPKAPI Nord
  '  Range("G" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "G5" '- Coordonnée TOPKAPI Est
    Range("H" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "B6" '- Nom du pas de tir
    Range("I" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "B7" '- Numéro unique de la fosse...

Je voudrais par rapport au range quelque chose qui permette que lorsque je mets une ligne de code en simple commentaire que mon tableau se réajuste automatiquement en gardant le bonne ordre de remplissage...

Merci de votre aide... ;)

Bonjour,

par définition, un commentaire n'est pas traité par une macro.
il faudrait inventer ton propre compilateur; en d'autre terme une macro qui analyse une autre macro.

le plus simple est deux actions une en commentaire et l'autre non!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Range("A" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "B03" '- N° SAA
Range("B" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "B11" '- GPS Nord
' Range("C" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "B12" '- GPS Est
'Range("D" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "D11" '- GPS Nord décimal
Range("E" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "D12" '- GPS Est décimal
Range("F" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "G4" '- Coordonnée TOPKAPI Nord
' Range("G" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "G5" '- Coordonnée TOPKAPI Est
Range("H" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "B6" '- Nom du pas de tir
Range("I" & i).Formula = "=" & NomAppli & "E" & Format(i, "00") & "B7" '- Numéro unique de la fosse...
 
'Columns("I:I").Delete Shift:=xlToLeft
'Columns("H:H").Delete Shift:=xlToLeft
Columns("G:G").Delete Shift:=xlToLeft
'Columns("F:F").Delete Shift:=xlToLeft
'Columns("E:E").Delete Shift:=xlToLeft
Columns("D:D").Delete Shift:=xlToLeft
Columns("C:C").Delete Shift:=xlToLeft
'Columns("B:B").Delete Shift:=xlToLeft
'Columns("A:A").Delete Shift:=xlToLeft