suivant: Next i Next
Next i suivant: Next
If ShE.Cells(i, 41) = "Oui" & "OUI" & "oui" Then
If ucase(ShE.Cells(i, 41)) = "OUI" Then
Public Sub pointage3() 'ouverture du fichier 03 - pointage Workbooks.Open Filename:="C:\Documents and Settings\Stagatl\Bureau\Traitement des FT\03 - pointages.xls" ' je sélectionne le portefeuille de prospection Windows("Portefeuille_prospection_2003").Activate Sheets("Portefeuille prospection").Select ' j'interroge la cellule confirmant l'export en créant une boucle Dim i As Integer For i = 14 To 500 Step 1 Range("D" & i).Select If UCase(ShE.Cells(i, 41)) = "OUI" Then 'je sélectionne les cellules qui m'intéressent 'je déclare une variable par cellule Dim Nav As String Dim FT As String Dim GPE As String Dim T As String Dim Dp As String ' je copie les valeurs des cellules dans mes variables Nav = Range("B" & i).Value FT = Range("D" & i).Value GPE = Range("A4").Value T = Range("Q" & i).Value Dp = Range("S" & i).Value ' j'indique quelle est la dernière ligne de valeur sur ma fiche pointage Windows("03 - pointages.xls").Activate Sheets("Feuil1").Select Dim ShP As Worksheet ShP = ThisWorkbook.Sheets("Feuil1") Dim x As Integer x = ShP.UsedRange.Rows.Count + 1 'j'indique dans quelles cellules je copie les valeurs de mes variables ShP.Cells(x, 3).Value = FT ShP.Cells(x, 5).Value = Nav ShP.Cells(x, 7).Value = GPE ShP.Cells(x, 9).Value = T ShP.Cells(x, 11).Value = Dp 'j'active ma page prospection et efface la confirmation d'export Windows("Portefeuille_prospection_2003").Activate Sheets("Portefeuille prospection").Select ActiveSheet.Cells(i, 41).Value = "" ' Je fais un renvoi au début de ma boucle End If Next i Range("G14").Select End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionOption Explicit Public Sub pointage3() Dim i As Integer Dim Nav As String Dim FT As String Dim GPE As String Dim T As String Dim Dp As String Dim ShP As Worksheet Dim x As Integer 'ouverture du fichier 03 - pointage Workbooks.Open Filename:="C:\Documents and Settings\Stagatl\Bureau\Traitement des FT\03 - pointages.xls" ' je sélectionne le portefeuille de prospection Windows("Portefeuille_prospection_2003").Activate Sheets("Portefeuille prospection").Select ' j'interroge la cellule confirmant l'export en créant une boucle For i = 14 To 500 Step 1 Range("D" & i).Select If UCase(ActiveSheet.Cells(i, 41).Value) = "OUI" Then 'je sélectionne les cellules qui m'intéressent ' je copie les valeurs des cellules dans mes variables Nav = Cells(i, 2).Value FT = Cells(i, "D").Value GPE = Cells(4, 1).Value T = Cells(i, "Q").Value Dp = Cells(i, "S").Value ' j'indique quelle est la dernière ligne de valeur sur ma fiche pointage Windows("03 - pointages.xls").Activate Set ShP = Sheets("Feuil1") ShP.Select x = ShP.UsedRange.Rows.Count + 1 'j'indique dans quelles cellules je copie les valeurs de mes variables ShP.Cells(x, 3).Value = FT ShP.Cells(x, 5).Value = Nav ShP.Cells(x, 7).Value = GPE ShP.Cells(x, 9).Value = T ShP.Cells(x, 11).Value = Dp 'j'active ma page prospection et efface la confirmation d'export Windows("Portefeuille_prospection_2003").Activate Sheets("Portefeuille prospection").Select ActiveSheet.Cells(i, 41).Value = "" ' Je fais un renvoi au début de ma boucle End If Next i Range("G14").Select End Sub
Mon:
x = ShP.UsedRange.Rows.Count + 1
ne me satisfait pas et me renvoie à la ligne 649.
Pourquoi 649 ? Héhé bonne question! ^^
Sub Macro1() ' Retourne le numéro de ligne le plus bas quel que soit la colonne With Sheets(1).UsedRange x = .Rows.Count + .Row End With MsgBox x ' Retourn le numéro de ligne de la colonne A x = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1 MsgBox x End Sub
Workbooks("03 - pointages.xls").Application.SaveWorkspace
Application.SaveWorkspace ("03 - pointages.xls")
On Error Resume Next Application.SaveWorkspace ("03 - pointages.xls")