Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Ajouter ??

Ajouter ??

3 réponses
Avatar
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!
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
isabelle
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


Avatar
Clochard
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!


Avatar
isabelle
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...