Excel- copier-coller cellule sans espace en fonction du %

Bonjour,

Je veux savoir à partir du fichier que j'ai attaché comment, en fonction du pourcentage attribué dans la colonne C entre les lignes 88 et 142, transposer les pistes d'action qui sont 0% dans la colonne C, dans l'encadré gris soit entre B37 et C92 tout en supprimant les espaces entre les lignes.

Merci d'avance

Salut Diane,

quelque chose comme ça ?

Les données en [B37:C85] s'effacent avant chaque calcul.

A tester et corriger selon d'autres indications plus exhaustives !!

Private Sub cmdGO_Click()
'
Dim iRow%
'
On Error Resume Next
Application.ScreenUpdating = False
'
iRow = Cells.Find(what:="Pistes d'actions", lookat:=xlPart, LookIn:=xlValues, searchdirection:=xlNext).Row
Range("B37:C" & iRow - 2).Value = ""
iRowT = 36
For x = Range("C" & Rows.Count).End(xlUp).Row To iRow + 1 Step -1
    If Range("C" & x).NumberFormat = "0%" And Range("C" & x).Value = 0 And UCase(Range("C" & x).Value) <> "FAUX" Then
        iRowT = iRowT + 1
        Range("B" & iRowT & ":C" & iRowT).Value = Range("B" & x & ":C" & x).Value
    End If
Next
Range("C37:C" & iRowT).NumberFormat = "0%"
'
Application.ScreenUpdating = True
On Error GoTo 0
'
End Sub

A+

4diag-lhg-vf.xlsm (113.72 Ko)

Bonjour,

Merci pour ta réponse.

Oui c'est dans ce style mais sans avoir les % juste les pistes d'actions concernées stp. Et je voulais savoir si c'est possible de rajouter une condition de format :

  • si le % attribuer à une piste d'actions < 10% je veux que les cellules apparaissent en orange dans l'encadré B46 à B100
  • si le % attribuer à une piste d'actions < 20% je veux que les cellules apparaissent en rouge dans l'encadré B46 à B100

merci d'avance.

Salut Diane,

ainsi, avec MFC... ?

A+

2diag-lhg-vf.xlsm (114.95 Ko)

Bonjour,

Je veux savoir comment il serait possible de copier coller le contenu des cellules C4 à C50 de l'onglet PL1 à partir de la note présente dans les cellules D4 à D50 (soit inférieur à 20%) de ce même onglet dans l'onglet PLAN de PROGRES à partir de la celulle B11.

Merci d'avance

0outil.xlsm (35.24 Ko)
Rechercher des sujets similaires à "copier coller espace fonction"