XL 2016 Supprimer des valeurs comprises entre deux valeurs sur Excel

ChTi160 à dit:

Re
Il me semble aussi que tu as dans ta Copie d'écran un Tableau ou les températures sont en Colonne 4
Sauf erreur de ma part ! mais sans Fichier Lol
Jean marie

Cliquez pour agrandir...

ChTi160 à dit:

Re
Cela reviendrait il a supprimé toutes les Lignes qui contiennent "IonGun:" ?
Jean marie

Cliquez pour agrandir...

ChTi160 à dit:

Bonjour le Fil
Il y a :

VB:

If Cells(i, 2) <= 40.1 And Cells(i, 2) >= 54.7 Then

il faudrait peut-être
un truc du genre

Code:

If Cells(i, 2) >= 40.1 And Cells(i, 2) <= 54.7 Then

jean marie

Cliquez pour agrandir...

mapomme à dit:

Re, bonjour @ChTi160

Un peu perdu du coup.

Bon une macro qui efface les cellules de la colonne D si la valeur est comprise entre 40,1 et 54,7 ou bien si la valeur n'est pas numérique.
Doit-on conserver les valeurs de courant nulles ?

le code dans Module1:

VB:

Sub Test01()
Dim i As Long
   Application.ScreenUpdating = False
   With Sheets("les valeurs")
      If .FilterMode Then .ShowAllData    'pour que END(xlup) soit correct
      For i = .Cells(Rows.Count, "d").End(xlUp).Row To 2 Step -1
         If .Cells(i, "d") >= 40.1 And .Cells(i, "d") <= 54.7 Or Not IsNumeric(.Cells(i, "d")) Then .Cells(i, "d").ClearContents
      Next i
   End With
End Sub

Cliquez pour agrandir...

Nicolasz à dit:

@mapomme Sinon aviez vous une méthode afin de séparer les températures des courants en deux colonnes différentes ?

Cliquez pour agrandir...

Sub Test02()
Dim derlig As Long, i As Long, t, DeuxEtPlus As Boolean
   Application.ScreenUpdating = False
   With Sheets("les valeurs")
      If .FilterMode Then .ShowAllData                   'pour que END(xlup) soit correct
      derlig = .Cells(Rows.Count, "d").End(xlUp).Row     'dernière ligne de la colonne D
      'on insère une colonne après la colonne D dont le titre doit être "Temperature" obligatoirement
      'si l'en tête de la colonne E est déjà "Temperature alors on quitte la procédure
      If .Cells(1, "e") = "Temperature" Then MsgBox "Traitement déjà fait!", vbInformation: Exit Sub
      .Columns("e:e").Insert
      .Cells(1, "e") = "Temperature"
      t = .Range("d1:e" & derlig).Value   'lecture du tableau des valeurs de la colonne D et E
      For i = 2 To UBound(t)              'boucle sur les lignes de t sauf l'en-tête
         If Not IsNumeric(t(i, 1)) Or (.Cells(i, "d") >= 40.1 And .Cells(i, "d") <= 54.7) Then
            'si la valeur de D n'est pas numérique ou bien est dans l'intervalle [40.1 , 54.7]
            t(i, 2) = t(i, 1)
            t(i, 1) = ""
         End If
      Next i
      Cells(1, "d").Resize(UBound(t), 2).Value = t    'on re-bascule le tableau sur la feuille
   End With
End Sub

Nicolasz à dit:

Et pour supprimer "ionGun:" de la colonne C et n'avoir plus que la pression comment puis-je faire ?

Cliquez pour agrandir...

      'colonne C => ne garder que la pression
      On Error Resume Next
      .Columns("C:C").SpecialCells(xlCellTypeConstants, 22).ClearContents
      On Error GoTo 0

Nicolasz à dit:

Et pour supprimer "ionGun:" de la colonne C et n'avoir plus que la pression comment puis-je faire ?

Cliquez pour agrandir...

• sélectionner la colonne C
• appuyer sur la touche de fonction F5
• cliquer sur le bouton Cellules...
• cocher Constantes
• décocher Nombres
• cliquer sur OK (les cellules qui ne sont pas des nombres sont sélectionnées)
• Appuyez sur la touche Suppr