Il y a actuellement 307 visiteurs
Vendredi 26 Avril 2024
accueilactualitésdossierscomparer les prixtélécharger gratuitement vos logicielsoffres d'emploiforum informatique
Connexion
Créer un compte

yadloh

Ce membre n'a pas encore choisi d'avatar
Visiteur
Visiteur
Nom d'utilisateur:
yadloh
Groupes:

Contacter yadloh

Statistiques de l’utilisateur

Inscription:
06 Jan 2009 15:41
Dernière visite:
27 Jan 2010 17:47
Messages:
4 (0.00% de tous les messages / 0.00 messages par jour)
Forum le plus actif:
Forum Composants & Ordinateurs assemblés
(3 Messages / 75.00% des messages de l'utilisateur)
Sujet le plus actif:
probleme blocage intermittent [résolu]
(3 Messages / 75.00% des messages de l'utilisateur)

Les derniers messages de yadloh

Message Macro excel double boucle
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

Message probleme blocage intermittent [résolu]
Bonjour,

voila j'ai monté un pc pour ma copine il y a 1 an qui marchai nikel jusqu'à maintenant.

Il y environ 14 semaine le pc a commencé a bloquer par intermittence.

Au départ je pensais que cela provenait d'un virus mais apré reformatage le soucis persiste.

Aprés le démarrage de windows, le pc bloque environ toutes les 30 secondes pendant 2-3 secondes et repart normalement.

Je pense avoir trouvé une anomalie mais je ne sais pas trop a quoi cela correspond :
mon utilisation fichier (dans gestionnaire des taches de windows) est de seulement 90mo et ne monte pas plus haut.

J'ai déja fait un test de ma ram avec memtest86 et il n'y a pas d'erreurs.

Est ce que quelqu'un pourrait m'aider?
merci!



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