Suite à un poste d'Hier trop flou j'ai changer ma demande pour plus simple:
J'aimarais savoir comment faire une boucle avec ceci:
If Range('D21').Value = Range('D41').Value Then
Range('D2140').Select
Selection.Insert Shift:=xlDown
Else
If Range('D61').Value = Range('D81').Value Then
Range('D6180').Select
Selection.Insert Shift:=xlDown
Else
If Range('D81').Value = Range('D101').Value Then
Range('D81100').Select
Selection.Insert Shift:=xlDown
End If
End If
End If
...Jusqu'a range('D1000')
Merci infiniement
Aussi sans abuser
Comment dire à ceci de considérer une formule dont le résultat est zéro comme vide. Je veut ex activecell en A1 sélect la dernière de la plage mais il inclu une cell ou il y a une formule qui se réfère a autre cell mais vide pour l'instant ...merci beaucoup
Pour répondre à ta 1ère question, je te propose ce code
Code:
Sub test()
Dim var As Long
var = 21
Do Until var > 1000
If Range('D' & var).Value = Range('D' & var + 20).Value Then
Range('D' & var & ':D' & var + 19).Select
Selection.Insert Shift:=xlDown
End If
var = var + 20
Loop
End Sub
En plus de la solution de Gibson94 je te propose cette procedure:
Code:
Option Explicit
Sub test()
Dim Bcle%
For Bcle = 21 To 1000 Step 20
If Cells(Bcle, 4) = Cells(Bcle + 20, 4) Then
Range(Cells(Bcle, 4), Cells(Bcle + 19, 4)).Insert Shift:=xlDown
End If
Next Bcle
End Sub
Quant à ta seconde demande, je n'ai pas trop compris :unsure: . Mais s'il s'agit de trouver la dernière cellule sans 'résultat', il va falloir t'y prendre autrement (je suppose que ta formule donne un résultat, même si c'est un chaîne vide).
Désolé pour les autres et pour mon manque de clarté.
Merci quand-même et bonne nuit.
Temjeh
Voici le zip pour la 2ème question [file name=Trie_col_J.zip size=19462]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Trie_col_J.zip[/file]