J'ai un petit problème avec mon code d'effacement, j'ai du me planter dessus.
Son but supprimer les lignes ou n_obs a pour valeur "" rien, on peut pas faire plus simple quoi, et dès que valeur différente de "", on arrete la boucle.
Code:
'Effacement des lignes vides
'For z = 2 To Range("I65536").End(xlUp).Row
For Each z In Range("I2:I65536")
If Cells(z, 9).Value = "" Then
Rows(z).Delete shift:=xlUp
End If
Next z
Je comprend plus, pourquoi sa arrive a moi!!!!, j'ai rien fait pourtant, je suis gentil.
n_obs et en colonne 9, et mes valeurs commence el ligne 2
Dim li As Long
Dim x As Long
li = Range("I65536").End(xlUp).Row
For x = li To 2 Step -1
If Cells(li, 9).Value = "" Then Rows(li).Delete shift:=xlUp
Next x
Dim li As Long
Dim x As Long
li = Range("I65536").End(xlUp).Row
For x = li To 2 Step -1
If Cells(li, 9).Value = "" Then
Rows(li).Delete shift:=xlUp
End If
Next x
veu rien savoir, ne supprime pas mes lignes
en plus je peut meme pas mettre mon fichier en pièce joint 4Mo, trop gros meme en le compressant
Désolé en principe je teste toujours avant d'envoyer et là je ne l'ai pas fait et mal m'en a pris... Mauvaise variable utilisée li au lieu de x.
Code:
Sub Macro1()
Dim li As Long
Dim x As Long
li = Range("I65536").End(xlUp).Row
For x = li To 2 Step -1
If Cells(x, 9).Value = "" Then
Rows(x).Delete shift:=xlUp
End If
Next x
End Sub
Édition
Hé m.... ! Je me suis fait encore gauler par José...
Je n'ai fais qu'un copier/coller des codes de Bapt au carré... J'ai ta tête dans le c... c'est vrai. Shift=xlUp ! j'avais même pas vu. Arrête de me casse les coudes et laisse-moi cuver en paix...
pour changer le nom de ma feuille de départ
Truc tout bete
Mes pages de donées de départ sont des reconvertion en excel de page XML, elle conserve donce le nom de la sauvegarde, c'est pour cela que je voulais changer le nom.
Dim e As Long
Dim z As Long
e = Range("D65536").End(xlUp).Row
For z = e To 2 Step -1
ActiveCell.FormulaR1C1 = "=RC[-5]/(24*3600)"
Selection.NumberFormat = "h:mm:ss;@"
ActiveCell.FormulaR1C1 = "=RC[-3]*100"
Next z
j'essaye de faire une boucle avec ces éléments, mais sa ne fonctionne pas
il me donne uniquement les données pour ma première cellule
calculer les heures en Colonne I
et le flight level en J
[LEFT]Dim e As Long
Dim z As Long[/LEFT]
[LEFT]e = Range("D65536").End(xlUp).Row
For z = e To 2 Step -1
Cells(z, 4).FormulaR1C1 = "=RC[-5]/(24*3600)"
Cells(z, 4).NumberFormat = "h:mm:ss;@"
Cells(z, 4).FormulaR1C1 = "=RC[-3]*100"
Next z[/LEFT]