Ajouter ??

Le
Clochard
Bonjour,

D'après vous, que devrais-je ajouter à cette formule pour réussir a exclure
du contrôle macro de la feuille "index" la colonne "A"

Private Sub Worksheet_Activate()
Dim sh As Worksheet, Ligne As Integer
Sheets("Index").Cells.ClearContents
Ligne = 1
For Each sh In Sheets
If sh.Name <> "Recap" Then
Sheets("Index").Cells(Ligne, 1) = sh.Range("A1")
Sheets("Index").Cells(Ligne, 2) = sh.Range("B1")
Sheets("Index").Cells(Ligne, 3) = sh.Range("A2")
Sheets("Index").Cells(Ligne, 4) = sh.Range("A3")
Sheets("Index").Cells(Ligne, 5) = sh.Range("A5")
Sheets("Index").Cells(Ligne, 6) = sh.Range("A6")
Sheets("Index").Cells(Ligne, 7) = sh.Range("A7")
Sheets("Index").Cells(Ligne, 8) = sh.Range("A8")
Sheets("Index").Cells(Ligne, 9) = sh.Range("A9")
Sheets("Index").Cells(Ligne, 10) = sh.Range("A10")
Ligne = Ligne + 1
End If
Next sh
End Sub

Car j'aimerais que la colonne "A" ne soit pas sous le contrôle de la
macro. est-ce possible?

Merci
--
Clochard
Aimerais bien savoir.
Merci!
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #4391791
bonjour Clochard,

Private Sub Worksheet_Activate()
Dim sh As Worksheet, Ligne As Integer
Sheets("Index").Cells.ClearContents
Ligne = 1
For Each sh In Sheets
If sh.Name <> "Recap" Then

With Sheets("Index")
.Cells(Ligne, 1) = sh.Range("A1")
.Cells(Ligne, 2) = sh.Range("B1")
For i = 3 To 10
.Cells(Ligne, i) = sh.Range("A" & i - 1)
End If
End With

Ligne = Ligne + 1
End If
Next sh
End Sub

isabelle


Bonjour,

D'après vous, que devrais-je ajouter à cette formule pour réussir a exclure
du contrôle macro de la feuille "index" la colonne "A"

Private Sub Worksheet_Activate()
Dim sh As Worksheet, Ligne As Integer
Sheets("Index").Cells.ClearContents
Ligne = 1
For Each sh In Sheets
If sh.Name <> "Recap" Then
Sheets("Index").Cells(Ligne, 1) = sh.Range("A1")
Sheets("Index").Cells(Ligne, 2) = sh.Range("B1")
Sheets("Index").Cells(Ligne, 3) = sh.Range("A2")
Sheets("Index").Cells(Ligne, 4) = sh.Range("A3")
Sheets("Index").Cells(Ligne, 5) = sh.Range("A5")
Sheets("Index").Cells(Ligne, 6) = sh.Range("A6")
Sheets("Index").Cells(Ligne, 7) = sh.Range("A7")
Sheets("Index").Cells(Ligne, 8) = sh.Range("A8")
Sheets("Index").Cells(Ligne, 9) = sh.Range("A9")
Sheets("Index").Cells(Ligne, 10) = sh.Range("A10")
Ligne = Ligne + 1
End If
Next sh
End Sub

Car j'aimerais que la colonne "A" ne soit pas sous le contrôle de la
macro.... est-ce possible?

Merci


Clochard
Le #4391771
Salut Isabelle,

Merci pour cette réponse...

Tu n'as sûrement pas regardé ma question dans le fil "Deuxième tentative"
rendue en page 3...


--
Clochard
Aimerais bien savoir....
Merci!



Bonjour,

D'après vous, que devrais-je ajouter à cette formule pour réussir a exclure
du contrôle macro de la feuille "index" la colonne "A"

Private Sub Worksheet_Activate()
Dim sh As Worksheet, Ligne As Integer
Sheets("Index").Cells.ClearContents
Ligne = 1
For Each sh In Sheets
If sh.Name <> "Recap" Then
Sheets("Index").Cells(Ligne, 1) = sh.Range("A1")
Sheets("Index").Cells(Ligne, 2) = sh.Range("B1")
Sheets("Index").Cells(Ligne, 3) = sh.Range("A2")
Sheets("Index").Cells(Ligne, 4) = sh.Range("A3")
Sheets("Index").Cells(Ligne, 5) = sh.Range("A5")
Sheets("Index").Cells(Ligne, 6) = sh.Range("A6")
Sheets("Index").Cells(Ligne, 7) = sh.Range("A7")
Sheets("Index").Cells(Ligne, 8) = sh.Range("A8")
Sheets("Index").Cells(Ligne, 9) = sh.Range("A9")
Sheets("Index").Cells(Ligne, 10) = sh.Range("A10")
Ligne = Ligne + 1
End If
Next sh
End Sub

Car j'aimerais que la colonne "A" ne soit pas sous le contrôle de la
macro.... est-ce possible?

Merci
--
Clochard
Aimerais bien savoir....
Merci!


isabelle
Le #4391721
je viens d'y jeter un oeil,

je crois qu'il faudrait changer le nom "Recap" provenant de l'exemple donné par Daniel
par le nom "Index"


Private Sub Worksheet_Activate()
Dim sh As Worksheet, Ligne As Integer
Sheets("Index").Cells.ClearContents
Ligne = 1
For Each sh In Sheets
If sh.Name <> "Index" Then <----------------------- ici

With Sheets("Index")
.Cells(Ligne, 1) = sh.Range("A1")
.Cells(Ligne, 2) = sh.Range("B1")
For i = 3 To 10
.Cells(Ligne, i) = sh.Range("A" & i - 1)
End If
End With

Ligne = Ligne + 1
End If
Next sh
End Sub

isabelle

Salut Isabelle,

Merci pour cette réponse...

Tu n'as sûrement pas regardé ma question dans le fil "Deuxième tentative"
rendue en page 3...




Publicité
Poster une réponse
Anonyme