[ Résolu ] Décaler une ligne. ,et supprimer le mot #VALEUR!

Guido

XLDnaute Accro
Bonsoir le Forum

J'ai deux demande pour deux onglets différent..

Voir onglet Courses et onglet Mes Over R1

Voir le fichier

merci d'avance Guido
 

Pièces jointes

  • Faire remonter une plage et supprimmer un mot.xlsm
    948 KB · Affichages: 20

Guido

XLDnaute Accro
Re

Le problème #VALEUR! est résolu par une formule. =SIERREUR(R8-S8;0)

Il me reste le problème pour décaler la plage vers le haut si la première ligne contient

les mots Dernières Performance..??'

Merci voir le fichier

Guido
 

Pièces jointes

  • Supprimer la ligne et remonter la plage d'une ligne.xlsm
    453.2 KB · Affichages: 34

zebanx

XLDnaute Accro
Bonjour Guido

Dans l'attente d'une réponse adaptée par tableau (au hasard par le VBAmaster JOB75), une solution :
- soit par copie simple (retenue ici)
- soit par copie valeur uniquement (tu mets en début de ligne un ' pour neutraliser la ligne de codes comme je l'ai fait)

Ce qui a été fait :
S'il y a une valeur non "" sur la colonne H(=8) alors il y a une copie, sur la même ligne, de la donnée dans la colonne K(11) vers la colonne N(14).

++ zebanx
 

Pièces jointes

  • GUIDO_remplir N.xls
    1.1 MB · Affichages: 27

Guido

XLDnaute Accro
Re

Salut zebanx Merci pour ta proposition

Apres avoir vidé la colonne N ,j'appuie sur le bouton de ta macro

et le décalage de la ligne ne se fait pas...

Voir capture de l’écran.
Plage non modifiés.PNG

Merci de pouvoir encore m'aider,svp

Guido
 

zebanx

XLDnaute Accro
Re-Guido

Puisque les couleurs changent (jaune sur la première version et vert ensuite) et qu'il y avait une contrainte de texte identique dans les cellules en "noir" (exemple : DERNIERES PERFORMANCES), il faut modifier le code.
Et il faudra réenregistrer en version 2007 pour que le fichier soit moins lourd (j'ai excel 2003).

++ zebanx
 

Pièces jointes

  • GUIDO_MA_COTE_PERSO_201781952.zip
    942.3 KB · Affichages: 43

zebanx

XLDnaute Accro
Tant mieux -)
Moi je trouve l'exécution lente (mais ça c'est à force de constater la vitesse lumière des codes de JOB75 :cool:) et un code simplifiable. Mais j'ai été obligé de reboucler pour les couleurs par exemple, c'est un ralentisseur certain.

++

edit : fichier modifié avec xlcalculationManual et ça va plus vite.
Je t'ai mis un deuxième code à peu près similaire dans le module 57, à toi de choisir.

Code:
Sub Vider_le_SURPLUS()
' premier code

Application.Calculation = xlCalculationManual
derligne = Cells(Rows.Count, 3).End(3).Row
Range("N13:N" & derligne).ClearContents

For I = 13 To derligne
If (Cells(I, 11) Like "*DERNIER*" And Cells(I, 11).Interior.ColorIndex = 35) Then
derligneZ = Cells(I, 11).End(4).Row
Range(Cells(I, 11), Cells(derligneZ, 11)).Copy
Cells(I - 1, 14).PasteSpecial Paste:=xlValues
I = derligneZ
Else
Cells(I, 11).Copy Destination:=Cells(I, 14) ' si copie des valeurs et des formats
'Cells(I, 14).Paste
'Cells(I, 14).PasteSpecial Paste:=xlValues 'si copie uniquement des valeurs
End If
Next I

For I = 13 To derligne
If Cells(I, 14) Like "*DERNIER*" Then
With Cells(I, 14)
.Interior.ColorIndex = 46
.Font.ColorIndex = 2
End With
With Cells(I + 1, 14)
.Interior.ColorIndex = 35
.Font.ColorIndex = 0
End With
End If
Next I
Application.Calculation = xlCalculationAutomatic
Cells(8, 15).Select
End Sub
 

Pièces jointes

  • guido (courses) 2.xls
    4.5 MB · Affichages: 35
Dernière édition:

zebanx

XLDnaute Accro
Bonsoir Staples1600

@Guido : si tu marques "résolu par X", le problème c'est que d'autres ne s'y intéressent pas pour donner une solution.
Même si, repenti (ou assimilé), je comprends la problématique d'indiquer que quelqu'un a traité et complètement la requête et vu le nombre de fils chaque jour, ce serait bien d'avoir cette information sur la page générale (un "V" par exemple). Mais la première raison supra l'emporte.
 

Guido

XLDnaute Accro
Bonsoir le fil, le forum

[aparté]
Guido, je t'invite à lire ce fil
https://www.excel-downloads.com/threads/les-titres-des-fils.20019572/
Ensuite, à toi de voir ce que tu fais subir à tes titres de discussion ou pas ;)
[/aparté]

Re

Si ma mémoire est toujours bonne,j'avais reçu un petit message afin de cité la ,ou les personnes

qui avais avancé ou fini un post.. depuis je le fais ,et Vous m'envoyé ce petit mot...???

que dois je faire ???

Merci

Les avis sont divisés...

Guido
 

Staple1600

XLDnaute Barbatruc
Bonsoir zebanx, Guido,

De mon point de vue, le principal problème c'est le titre à rallonge qui rend difficilement compréhensible la question et surtout perturbe le moteur de recherche interne.

Rien n'empêche de mettre un petit mot de remerciement dans le dernier message du fil et d'indiquer que pour le demandeur la question est résolue.
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 945
Membres
101 849
dernier inscrit
florentMIG