Boucle en vba Excel

Bonjour marc,

Mon fichier se construit peu à peu ,merci..:P
En B6 et B9 , j'ai une formule conditionnelle
J'aimerais copier la cellule B6 sur l'ensemble des cellules de la ligne de B6 jusqu'à la dernière cellule non vide de la dernier colonne non vide (en partant de la gauche)
ex: si ma dernier colonne non vide est la colonne L alors je copie B6 jusqu'à la cellule L6

J'aimerais copier la cellule B9 sur l'ensemble des cellules de la ligne de B9 jusqu'à la derniere cellule non vide de la dernier colonne non vide (en partant de la gauche)
ex: si ma dernier colonne non vide est la colonne L alors je copie B9 jusqu'à la cellule L9

salut Marc,
J'ai trouve l'ecriture vba :

Code:

---

1 2 3 4 5 6 7 8

Dim DernColonne As Integer Dim MyRange As Range   'n° de la dernière colonne non vide de la ligne 4 DernColonne = Cells(4, Columns.Count).End(xlToLeft).Column   'selectionner de la page allant de B6 a la derniere ligne non vide de la dernier colonne non vide B4 à L6) Set MyRange = Range(Cells(6, 2), Cells(6, DernColonne))

---

Ou encore

Code:

---

1 2	Dim MyRange As Range Set MyRange = Range("B6", Cells(4, Columns.Count).End(xlToLeft).Offset(2))

---

Bonjour,

J'ai bientôt fini ma petit macro mais je me heurte à une formule somme avec une variable.
Je m'explique :
dans la cellule B28; j'aimerais inseré la formule SOMME(B12:B27) . Si B12 ne change pas , B27 peut changer suite à l'insertion de ligne dans la colonne A à partir de la ligne 12.

Voici ce que j'ai fait :

Code:

---

1 2 3 4 5 6 7

Dim derligne As String Dim ligdebut As String   ligdebut=12 derligne = shl.Range("A11").End(xlDown).Row 'dernière cellule non vide de la colonne A en partant de A11   Range("A11").End(xlDown).Offset(0, 1) = "=SUM(R[" & ligdebut & "]C:R[" & derligne & "]C)"

---

Mais ce code est faux car en B28 j'ai cette some qui s'afiiche SOMME(B40:B56) alors que je voudrais SOMME( B12:B27)

Y-a-t-il besoin de variable ? Pas vraiment :

Code:

---

1 2 3

With shl.Range("A11").End(xlDown) .Offset(1, 1).Formula = "=SUM(B12:B" & .Row & ")" End With

---

Merci marc
je vais pouvoir continuer...:)

Ne pas oublier l'usage de ce forum :

______________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Bonjour marc,

je me heurte à un problème qui me semblait mineur: celui de copier des colonnes discontinues avec une variable.

je souhaiterais copier les colonnes B à C et la colonne F et ceci jusqu'à la dernier ligne non vide de la colonne B
Voilà le bout de code :

Code:

---

1 2	ligfin = shD.Range("B2").End(xlDown).Row 'derniere cellule non vide en partant du haut de la colonne B shD.Range("B2:C" & ligfin, "F2:F" & ligfin).Copie

---

Mais cela ne marche.
Ce code me copie également les colonnes D et E

marc,
sur internet, j'ai trouvé ce code que j'ai adapté à ma problématique :

Code:

---

1 2 3 4 5 6 7 8 9 10

ligfin = shD.Range("B2").End(xlDown).Row 'derniere cellule non vide en partant du haut de la colonne B   Dim Zone1, Zone2, MaPlageMultiZone As Range   Set Zone1 = shD.Range("B2:C" & ligfin) Set Zone2 = shD.Range("F2:F" & ligfin)   Set MaPlageMultiZone = Union(Zone1, Zone2)   MaPlageMultiZone.Copy

---

y a t il un code plus simple ou celui ci est le plus adapté à ce que je recherche ..:roll:?

Il y a d'autres manières (un exemple dans cette discussion)
mais ce qui compte est d'être capable de maintenir le code en cas d'évolution …

Bonjour Marc,
Je te rejoins lorsque tu dis

Citation:

---

ce qui compte est d'être capable de maintenir le code en cas d'évolution

---

:P
Mon code est presque fini...
Maintenant, je bloque sur un petit bout de code pour la réactualisation de ce fichier.
Je souhaiterais que dans tous mes onglets ( sauf celui intitulé "DONNEE"), les colonnes B et ce jusqu'à la derniere colonne non vide soient supprimées?
Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Public Sub Supprimer_colonne()   Dim DernColonne As Integer   DernColonne = Cells(4, Columns.Count).End(xlToLeft).Column 'n° de la dernière colonne non vide de la ligne 4   Dim wb As Workbook Dim ws As Worksheet Application.ScreenUpdating = False Set wb = ThisWorkbook For Each ws In wb.Worksheets(Array("Lundi_Transit", "Mardi_Transit", "Mercredi_Transit", "Jeudi_Transit", "Vendredi_Transit", "Samedi_Transit")) ws.Range("B1", Cells(1, DernColonne)).EntireColumn.Delete Next ws Set wb = Nothing End Sub

---

mais j'ai une erreur à la ligne 12

L'erreur provient d'un problème de logique avec la variable DernColonne alimentée d'après la feuille active
et l'oubli de ws devant Cells (= feuille active !). Et encore d'inutiles variables …

Code:

---

1 2 3 4 5 6 7 8

Sub Supprimer_colonnes() Dim oWs As Worksheet Application.ScreenUpdating = False For Each oWs In ThisWorkbook.Worksheets If oWs.Name <> "DONNEE" Then oWs.UsedRange.Offset(, 1).Clear Next Application.ScreenUpdating = True End Sub

---

Bonjour Marc,


Lorsque je lis ton code, effectivement, c'est propre et logique..
Je devrais me pencher sur ces variables afin de ne pas alourdir mes codes et éviter des erreurs.
Et en parlant de variable, existe il un moyen de centraliser des même variable utilisées par mes onglets.
Actuellement, pour chacun de mes 6 onglets (Lundi_Transit à samedi_Transit) je repete les même variable qui sont :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Option Explicit 'déclarations des variables   Dim shD As Worksheet   Dim shl, shm, shme, shj, shv, shs As Worksheet   Dim MaPlage As Range Dim MyRangeArrivee As Range Dim MyRangeDecharg As Range Dim MyRangeTotal As Range   Dim Zone1, Zone2, MaPlageMultiZone As Range   Dim ligdebut, ligfin As String Dim DernColonne As Integer Dim derligne As String   Sub() .... End Sub

---

Si besoin de variables globales, les définir en tête d'un module normal …

Sinon normalement il n'y a qu'un seul code quelque soit la feuille pouvant être passée en paramètre ou selon la feuille active.

marc
Que veux tu dire par :

Citation:

---

Si besoin de variables globales, les définir en tête d'un module normal

---

Si la même variable avec sa valeur actuelle est partagée entre différentes procédures indépendantes …

Au fait dans ta ligne n°5, seule la variable shs est déclarée en Worksheet, les autres sont des Variant !

Idem ligne n°12, seule la dernière variable est en Range, les précédentes sont des Variant !

Ter repetita ligne n°14 !

Suffit de contrôler pendant l'exécution du code (via la touche F8) la fenêtre des Variables locales …

Bonjour marc,
J'ai fini mon fichier et le code fonctionne à merveille..merci pour ton aide.
Pour ce qui est de centraliser mes variables dans un meme module, je vais laisser tomber ..un peu trop compliqué pour moi..:lol:
Mais ta remarque m'interpelle lorsque tu as ecris :

Citation:

---

Au fait dans ta ligne n°5, seule la variable shs est déclarée en Worksheet, les autres sont des Variant !
Idem ligne n°12, seule la dernière variable est en Range, les précédentes sont des Variant !
Ter repetita ligne n°14 !

---

Quel est l'impact sur le fichier car le code fonctionne sans accros...?

Bonjour !

Là tu n'en as pas mais cela peut être une source d'erreur …
A partir du moment que tu déclares tes variables, autant le faire correctement !

Ah ces variables...:ptdr:
Que me conseilles tu alors pour que sur la ligne N°5, toutes mes variables soient déclarées Worksheet
et
ligne n°12, toutes mes variables soient déclarées Range...:roll:

Si le nom d'une variable est suivi de rien, c'est de facto un Variant !

Donc pour déclarer un type précis, chaque nom doit être suivi de As Range par exemple …