Il y a actuellement 90 visiteurs
Vendredi 30 Juillet 2021
accueilactualitésdossierscomparer les prixtélécharger gratuitement vos logicielsoffres d'emploiforum informatique
Connexion
Créer un compte

Macro excel double boucle

Besoin d'aide pour configurer un serveur ? Vous souhaitez obtenir des conseils pour référencer votre site ? Un petit souci pour accéder à votre FTP ? Des soucis de programmation en PHP / ASP / HTML / XHTML / XML / XSLT / CSS / ReactJS / AngularJS / VueJS / CGI / PERL / C / MySQL / PostgreSQL ??? Nous avons peut-être la solution dans ce forum ...

Macro excel double boucle

Message le 21 Jan 2010 11:42

Bonjour,

j'ai un probleme au niveau de ma macro excel. Je seche dessus depuis plusieurs jours deja. J'ai donc besoin que quelqu'un vienne à mon secours !!!

Je souhaite créer une double boucle. En effet je veux sélectionner les dernieres cellules d'une colonne (M) dans chaque onglet créé auparavant par la premiere boucle. pour cela j'ai besoin de faire une double boucle car les noms des onglets sont créés en fonction des informations récupérées par la premiere boucle. (je sais c'est un peu compliqué)

Mon probleme est que lorsque je lance ma macro seule la deuxieme boucle est lancée et non la deuxieme qui devrait suivre.

Voila mon code :

Sub essai()

Dim I As Long

Sheets("Toutes BUs Valeurs").Select
Dim Plage_BU As Range

Set Plage_BU = Range("D8:D" & Range("D8").End(xlDown).Row)
For I = Plage_BU.Cells.Count To 1 Step -1
Plage_BU.Cells(I).Value = UCase(Plage_BU.Cells(I).Value)
Plage_BU.Cells(I - 1).Value = UCase(Plage_BU.Cells(I - 1).Value)
If Plage_BU.Cells(I).Value <> Plage_BU.Cells(I - 1).Value Then
Sheets(Plage_BU.Cells(I - 1).Value).Select
End If

Dim J As Double
Dim Plage_Total As Range
Set Plage_Total = Range("M2:M" & Range("M2").End(xlDown).Row)
For J = Plage_Total.Cells.Count To 1 Step -1
Plage_Total.Cells(J).Value = UCase(Plage_Total.Cells(J).Value)
Plage_Total.Cells(J - 1).Value = UCase(Plage_Total.Cells(J - 1).Value)
If Plage_Total.Cells(J).Value = "" Then
Plage_Total.Cells(J - 1).Select
Selection.Copy
Sheets("Récapitulatif").Select
Range("A4").Select
Selection.Insert Shift:=xlDown
End If
Next
Next

End Sub

Je vous remercie par avance de vos réponses !

Jonathan
yadloh
Visiteur
Visiteur
 
Messages: 4
Inscription: 06 Jan 2009 15:41
 



Sujets similaires

Message Station d'accueil à double usage
Bonjour,J'ai possession d'un pc portable, et d'une tour. J'aimerai mettre en place une station qui me permettrait de switcher de l'un à l'autre facilement avec 3 écrans.D'un côté le pc portable, devrait pouvoir se brancher aux 3 écrans avec un qui serait un clone, et les deux autres étendus. Sans ut ...
Réponses: 0

Message [Réglé] Demande suppression double compte microsoft win 10
BonjourJe viens de m'apercevoir que je possède un double compte microsoft : un personnel et un scolaire crée par le lycee de ma fille.Je souhaite supprimer le compte scolaire.Comment faire sans risquer de planter mon pc?Merci
Réponses: 12

Message Configutation macro corsair scimitar
Bonjour à tous,Alors voila, je rencontre actuellement des problèmes avec ma souris Corsair Scimitar concernant le réglage de mes macros.Ma souris à 4 ans et tourne toujours. Je dois même dire que je suis agréablement surpris de sa durée de vie. Par contre je n'arrive pas à créer mes macros. A l'époq ...
Réponses: 1

Message Double processeur, la puissance est t-elle multiplié ?
Bonjour a toutes et a tous,Je suis nouveau sur le forum, en espérant ne mettre pas tromper dans le sujet.J'ai un double processeur intel Xeon E5 2620 2 GHz et j'aimerais savoir si le faite dans avoir deux multiplié les GHz ?(2GHz x2= 4GHz?)Ça fait quelques jours que je cherche sur le net mais je n'a ...
Réponses: 2

Message Macro touches clavier
Bonjour à tous et meilleurs vœux,Je pense que cela s’appelle une macro (désolé si je me trompe), mais comment pourrais-je faire pour que lorsque j’appuie sur une touche de mon volant ou manette elle simule une touche de mon clavier x2.Par exemple : START = espace, espace.Merci beaucoup!
Réponses: 2

Message PROBLEME DOUBLE ECRAN
Bonjour,Je vous écris car je suis désemparé. J'utilise un ordi portable asus ROG ZEPHYRUS GX 535 GW ES 2027 T, sous WINDOWS 10 64 BIT FAMILLEJ'utilise également un écran asus ASUS VG 279 (branché en DVI)J'ai donc branché l'écran au pc portable et dans les paramètres (mon écran principal est celui de ...
Réponses: 5

Message Problème avec une macro dans Access 2023
BonjourJ'ai un ennui avec ACCESS avec mon programme de comptabilité. Comme je l'ai fait depuis des années en décembre je viens de copier mon fichier Compta 2019 pour créer mon fichier Compta 2020,J'ai supprimé ma table des écritures comptables de 2019 et j'ai créé une table pour 2020 que j'ai comme ...
Réponses: 1


Qui est en ligne

Utilisateurs parcourant ce forum: Aucun utilisateur enregistré et 1 invité


.: Nous contacter :: Flux RSS :: Données personnelles :.
cron