Bonjour,
Je viens de commencer a utiliser le VBA, je pensais que j'avais compris,
mais ça marche pas et je comprends pas quelle est mon erreur. Mon but, c'est
de faire une fonction qui prends les dates selectiones dans ma feuille excel,
regarde a les dates a cote (droite), fais un certain traitement et apres mets
le resultat dans le sheet2.
mom problemme c'est que quand je veux ecrire dans sheet2 je fais:
Worksheets("sheet2").Range("A" & i).Value = ocup
Et je obtiens un erreur type:
L'indice n'appartient pas a la selection
Je sais pas si l'erreur est dans cette ligne ou viens de plus loin, et tout
cas pour ecrire le recultat dans le meme feuille en utilisant
Cells(i,j)=ocup
j'ai pas des problemes.
Est-ce que quelqu'n a une idee de qu'est qui se passe?
Merci en advance, et desolee pour mon français.
J'ajoute tout mon code au cas ou
Sub ocupation()
Dim Cellule As Range
Dim h1, h2, taille_t As Integer
Dim taula() As Integer
Dim dd, d2, d1 As Date
Dim i, ocup
taille_t = 50
ReDim taula(taille_t + 1)
For i = 0 To taille_t
taula(i) = 0
i = i + 1
Next
If taille_t < h2 Then
ReDim Preserve taula(h2 + 1)
For i = taille_t + 1 To h2
taula(i) = 0
'i = i + 1
Next
taille_t = h2
End If
taula(h1) = taula(h1) + 1
taula(h2) = taula(h2) - 1
Next
ocup = 0
For i = 0 To taille_t
ocup = ocup + taula(i)
Worksheets("sheet2").Range("A" & i).Value = ocup
Next
Bonjour, Je viens de commencer a utiliser le VBA, je pensais que j'avais compris, mais ça marche pas et je comprends pas quelle est mon erreur. Mon but, c'est de faire une fonction qui prends les dates selectiones dans ma feuille excel, regarde a les dates a cote (droite), fais un certain traitement et apres mets le resultat dans le sheet2. mom problemme c'est que quand je veux ecrire dans sheet2 je fais:
Worksheets("sheet2").Range("A" & i).Value = ocup
Et je obtiens un erreur type: L'indice n'appartient pas a la selection Je sais pas si l'erreur est dans cette ligne ou viens de plus loin, et tout cas pour ecrire le recultat dans le meme feuille en utilisant Cells(i,j)=ocup j'ai pas des problemes.
Est-ce que quelqu'n a une idee de qu'est qui se passe? Merci en advance, et desolee pour mon français.
J'ajoute tout mon code au cas ou
Sub ocupation() Dim Cellule As Range Dim h1, h2, taille_t As Integer Dim taula() As Integer Dim dd, d2, d1 As Date Dim i, ocup
taille_t = 50 ReDim taula(taille_t + 1) For i = 0 To taille_t taula(i) = 0 i = i + 1 Next
If taille_t < h2 Then ReDim Preserve taula(h2 + 1) For i = taille_t + 1 To h2 taula(i) = 0 'i = i + 1 Next taille_t = h2 End If taula(h1) = taula(h1) + 1 taula(h2) = taula(h2) - 1 Next
ocup = 0
For i = 0 To taille_t ocup = ocup + taula(i) Worksheets("sheet2").Range("A" & i).Value = ocup Next
"txet" <txet@discussions.microsoft.com> a écrit dans le message de news:
A1E38FAF-F734-4C3F-A690-1C6576228504@microsoft.com...
Bonjour,
Je viens de commencer a utiliser le VBA, je pensais que j'avais compris,
mais ça marche pas et je comprends pas quelle est mon erreur. Mon but,
c'est
de faire une fonction qui prends les dates selectiones dans ma feuille
excel,
regarde a les dates a cote (droite), fais un certain traitement et apres
mets
le resultat dans le sheet2.
mom problemme c'est que quand je veux ecrire dans sheet2 je fais:
Worksheets("sheet2").Range("A" & i).Value = ocup
Et je obtiens un erreur type:
L'indice n'appartient pas a la selection
Je sais pas si l'erreur est dans cette ligne ou viens de plus loin, et
tout
cas pour ecrire le recultat dans le meme feuille en utilisant
Cells(i,j)=ocup
j'ai pas des problemes.
Est-ce que quelqu'n a une idee de qu'est qui se passe?
Merci en advance, et desolee pour mon français.
J'ajoute tout mon code au cas ou
Sub ocupation()
Dim Cellule As Range
Dim h1, h2, taille_t As Integer
Dim taula() As Integer
Dim dd, d2, d1 As Date
Dim i, ocup
taille_t = 50
ReDim taula(taille_t + 1)
For i = 0 To taille_t
taula(i) = 0
i = i + 1
Next
If taille_t < h2 Then
ReDim Preserve taula(h2 + 1)
For i = taille_t + 1 To h2
taula(i) = 0
'i = i + 1
Next
taille_t = h2
End If
taula(h1) = taula(h1) + 1
taula(h2) = taula(h2) - 1
Next
ocup = 0
For i = 0 To taille_t
ocup = ocup + taula(i)
Worksheets("sheet2").Range("A" & i).Value = ocup
Next
Bonjour, Je viens de commencer a utiliser le VBA, je pensais que j'avais compris, mais ça marche pas et je comprends pas quelle est mon erreur. Mon but, c'est de faire une fonction qui prends les dates selectiones dans ma feuille excel, regarde a les dates a cote (droite), fais un certain traitement et apres mets le resultat dans le sheet2. mom problemme c'est que quand je veux ecrire dans sheet2 je fais:
Worksheets("sheet2").Range("A" & i).Value = ocup
Et je obtiens un erreur type: L'indice n'appartient pas a la selection Je sais pas si l'erreur est dans cette ligne ou viens de plus loin, et tout cas pour ecrire le recultat dans le meme feuille en utilisant Cells(i,j)=ocup j'ai pas des problemes.
Est-ce que quelqu'n a une idee de qu'est qui se passe? Merci en advance, et desolee pour mon français.
J'ajoute tout mon code au cas ou
Sub ocupation() Dim Cellule As Range Dim h1, h2, taille_t As Integer Dim taula() As Integer Dim dd, d2, d1 As Date Dim i, ocup
taille_t = 50 ReDim taula(taille_t + 1) For i = 0 To taille_t taula(i) = 0 i = i + 1 Next
If taille_t < h2 Then ReDim Preserve taula(h2 + 1) For i = taille_t + 1 To h2 taula(i) = 0 'i = i + 1 Next taille_t = h2 End If taula(h1) = taula(h1) + 1 taula(h2) = taula(h2) - 1 Next
ocup = 0
For i = 0 To taille_t ocup = ocup + taula(i) Worksheets("sheet2").Range("A" & i).Value = ocup Next
End Sub
Daniel
For i = 0 To taille_t ocup = ocup + taula(i) Worksheets("sheet2").Range("A" & i).Value = ocup Next
A la première exécution, i=0 donc Range("A" & i) = A0; corrige : Worksheets("sheet2").Range("A" & i+1).Value = ocup
Cordialement. Daniel
For i = 0 To taille_t
ocup = ocup + taula(i)
Worksheets("sheet2").Range("A" & i).Value = ocup
Next
A la première exécution, i=0 donc Range("A" & i) = A0;
corrige :
Worksheets("sheet2").Range("A" & i+1).Value = ocup
For i = 0 To taille_t ocup = ocup + taula(i) Worksheets("sheet2").Range("A" & i).Value = ocup Next
A la première exécution, i=0 donc Range("A" & i) = A0; corrige : Worksheets("sheet2").Range("A" & i+1).Value = ocup
Cordialement. Daniel
michdenis
Bonjour Txet,
'------------------------- For i = 0 To taille_t ocup = ocup + taula(i) Worksheets("sheet2").Range("A" & i).Value = ocup Next '-------------------------
Dans ta boucle, au premier tour, où i = 0 , tu vas demander à excel d'écrire la valeur de ocup dans la cellule Range("A"& 0), est-ce que tu connais une cellule dans excel qui a une adresse Range("A0") ... la ligne 0 n'existe pas ... c'est pourquoi excel te renvoie ce message, l'objet que tu référencies n'existe pas !
Tu peux corriger si tu le désires : Range("A" & i +1)
Salutations!
"txet" a écrit dans le message de news: Bonjour, Je viens de commencer a utiliser le VBA, je pensais que j'avais compris, mais ça marche pas et je comprends pas quelle est mon erreur. Mon but, c'est de faire une fonction qui prends les dates selectiones dans ma feuille excel, regarde a les dates a cote (droite), fais un certain traitement et apres mets le resultat dans le sheet2. mom problemme c'est que quand je veux ecrire dans sheet2 je fais:
Worksheets("sheet2").Range("A" & i).Value = ocup
Et je obtiens un erreur type: L'indice n'appartient pas a la selection Je sais pas si l'erreur est dans cette ligne ou viens de plus loin, et tout cas pour ecrire le recultat dans le meme feuille en utilisant Cells(i,j)=ocup j'ai pas des problemes.
Est-ce que quelqu'n a une idee de qu'est qui se passe? Merci en advance, et desolee pour mon français.
J'ajoute tout mon code au cas ou
Sub ocupation() Dim Cellule As Range Dim h1, h2, taille_t As Integer Dim taula() As Integer Dim dd, d2, d1 As Date Dim i, ocup
taille_t = 50 ReDim taula(taille_t + 1) For i = 0 To taille_t taula(i) = 0 i = i + 1 Next
If taille_t < h2 Then ReDim Preserve taula(h2 + 1) For i = taille_t + 1 To h2 taula(i) = 0 'i = i + 1 Next taille_t = h2 End If taula(h1) = taula(h1) + 1 taula(h2) = taula(h2) - 1 Next
ocup = 0
For i = 0 To taille_t ocup = ocup + taula(i) Worksheets("sheet2").Range("A" & i).Value = ocup Next
End Sub
Bonjour Txet,
'-------------------------
For i = 0 To taille_t
ocup = ocup + taula(i)
Worksheets("sheet2").Range("A" & i).Value = ocup
Next
'-------------------------
Dans ta boucle, au premier tour, où i = 0 , tu vas demander à excel d'écrire la valeur de ocup dans la cellule Range("A"& 0), est-ce
que tu connais une cellule dans excel qui a une adresse Range("A0") ... la ligne 0 n'existe pas ... c'est pourquoi excel te renvoie
ce message, l'objet que tu référencies n'existe pas !
Tu peux corriger si tu le désires : Range("A" & i +1)
Salutations!
"txet" <txet@discussions.microsoft.com> a écrit dans le message de news: A1E38FAF-F734-4C3F-A690-1C6576228504@microsoft.com...
Bonjour,
Je viens de commencer a utiliser le VBA, je pensais que j'avais compris,
mais ça marche pas et je comprends pas quelle est mon erreur. Mon but, c'est
de faire une fonction qui prends les dates selectiones dans ma feuille excel,
regarde a les dates a cote (droite), fais un certain traitement et apres mets
le resultat dans le sheet2.
mom problemme c'est que quand je veux ecrire dans sheet2 je fais:
Worksheets("sheet2").Range("A" & i).Value = ocup
Et je obtiens un erreur type:
L'indice n'appartient pas a la selection
Je sais pas si l'erreur est dans cette ligne ou viens de plus loin, et tout
cas pour ecrire le recultat dans le meme feuille en utilisant
Cells(i,j)=ocup
j'ai pas des problemes.
Est-ce que quelqu'n a une idee de qu'est qui se passe?
Merci en advance, et desolee pour mon français.
J'ajoute tout mon code au cas ou
Sub ocupation()
Dim Cellule As Range
Dim h1, h2, taille_t As Integer
Dim taula() As Integer
Dim dd, d2, d1 As Date
Dim i, ocup
taille_t = 50
ReDim taula(taille_t + 1)
For i = 0 To taille_t
taula(i) = 0
i = i + 1
Next
If taille_t < h2 Then
ReDim Preserve taula(h2 + 1)
For i = taille_t + 1 To h2
taula(i) = 0
'i = i + 1
Next
taille_t = h2
End If
taula(h1) = taula(h1) + 1
taula(h2) = taula(h2) - 1
Next
ocup = 0
For i = 0 To taille_t
ocup = ocup + taula(i)
Worksheets("sheet2").Range("A" & i).Value = ocup
Next
'------------------------- For i = 0 To taille_t ocup = ocup + taula(i) Worksheets("sheet2").Range("A" & i).Value = ocup Next '-------------------------
Dans ta boucle, au premier tour, où i = 0 , tu vas demander à excel d'écrire la valeur de ocup dans la cellule Range("A"& 0), est-ce que tu connais une cellule dans excel qui a une adresse Range("A0") ... la ligne 0 n'existe pas ... c'est pourquoi excel te renvoie ce message, l'objet que tu référencies n'existe pas !
Tu peux corriger si tu le désires : Range("A" & i +1)
Salutations!
"txet" a écrit dans le message de news: Bonjour, Je viens de commencer a utiliser le VBA, je pensais que j'avais compris, mais ça marche pas et je comprends pas quelle est mon erreur. Mon but, c'est de faire une fonction qui prends les dates selectiones dans ma feuille excel, regarde a les dates a cote (droite), fais un certain traitement et apres mets le resultat dans le sheet2. mom problemme c'est que quand je veux ecrire dans sheet2 je fais:
Worksheets("sheet2").Range("A" & i).Value = ocup
Et je obtiens un erreur type: L'indice n'appartient pas a la selection Je sais pas si l'erreur est dans cette ligne ou viens de plus loin, et tout cas pour ecrire le recultat dans le meme feuille en utilisant Cells(i,j)=ocup j'ai pas des problemes.
Est-ce que quelqu'n a une idee de qu'est qui se passe? Merci en advance, et desolee pour mon français.
J'ajoute tout mon code au cas ou
Sub ocupation() Dim Cellule As Range Dim h1, h2, taille_t As Integer Dim taula() As Integer Dim dd, d2, d1 As Date Dim i, ocup
taille_t = 50 ReDim taula(taille_t + 1) For i = 0 To taille_t taula(i) = 0 i = i + 1 Next
If taille_t < h2 Then ReDim Preserve taula(h2 + 1) For i = taille_t + 1 To h2 taula(i) = 0 'i = i + 1 Next taille_t = h2 End If taula(h1) = taula(h1) + 1 taula(h2) = taula(h2) - 1 Next
ocup = 0
For i = 0 To taille_t ocup = ocup + taula(i) Worksheets("sheet2").Range("A" & i).Value = ocup Next
End Sub
txet
Merci beaucoup a touts, en faisant
Sheets("Feuil2").Select Range("A" & i + 1).Select ActiveCell = ocup
ça marche, je comprends pas pourquoi seulement
Worksheets("sheet2").Range("A" & i + 1).Value = ocup
ça ne marche pas, mais bon avec une façon de le faire marcher ça me sufis.
Merci Chet
Bonjour Txet,
'------------------------- For i = 0 To taille_t ocup = ocup + taula(i) Worksheets("sheet2").Range("A" & i).Value = ocup Next '-------------------------
Dans ta boucle, au premier tour, où i = 0 , tu vas demander à excel d'écrire la valeur de ocup dans la cellule Range("A"& 0), est-ce que tu connais une cellule dans excel qui a une adresse Range("A0") ... la ligne 0 n'existe pas ... c'est pourquoi excel te renvoie ce message, l'objet que tu référencies n'existe pas !
Tu peux corriger si tu le désires : Range("A" & i +1)
Salutations!
"txet" a écrit dans le message de news: Bonjour, Je viens de commencer a utiliser le VBA, je pensais que j'avais compris, mais ça marche pas et je comprends pas quelle est mon erreur. Mon but, c'est de faire une fonction qui prends les dates selectiones dans ma feuille excel, regarde a les dates a cote (droite), fais un certain traitement et apres mets le resultat dans le sheet2. mom problemme c'est que quand je veux ecrire dans sheet2 je fais:
Worksheets("sheet2").Range("A" & i).Value = ocup
Et je obtiens un erreur type: L'indice n'appartient pas a la selection Je sais pas si l'erreur est dans cette ligne ou viens de plus loin, et tout cas pour ecrire le recultat dans le meme feuille en utilisant Cells(i,j)=ocup j'ai pas des problemes.
Est-ce que quelqu'n a une idee de qu'est qui se passe? Merci en advance, et desolee pour mon français.
J'ajoute tout mon code au cas ou
Sub ocupation() Dim Cellule As Range Dim h1, h2, taille_t As Integer Dim taula() As Integer Dim dd, d2, d1 As Date Dim i, ocup
taille_t = 50 ReDim taula(taille_t + 1) For i = 0 To taille_t taula(i) = 0 i = i + 1 Next
If taille_t < h2 Then ReDim Preserve taula(h2 + 1) For i = taille_t + 1 To h2 taula(i) = 0 'i = i + 1 Next taille_t = h2 End If taula(h1) = taula(h1) + 1 taula(h2) = taula(h2) - 1 Next
ocup = 0
For i = 0 To taille_t ocup = ocup + taula(i) Worksheets("sheet2").Range("A" & i).Value = ocup Next
End Sub
Merci beaucoup a touts, en faisant
Sheets("Feuil2").Select
Range("A" & i + 1).Select
ActiveCell = ocup
ça marche, je comprends pas pourquoi seulement
Worksheets("sheet2").Range("A" & i + 1).Value = ocup
ça ne marche pas, mais bon avec une façon de le faire marcher ça me sufis.
Merci
Chet
Bonjour Txet,
'-------------------------
For i = 0 To taille_t
ocup = ocup + taula(i)
Worksheets("sheet2").Range("A" & i).Value = ocup
Next
'-------------------------
Dans ta boucle, au premier tour, où i = 0 , tu vas demander à excel d'écrire la valeur de ocup dans la cellule Range("A"& 0), est-ce
que tu connais une cellule dans excel qui a une adresse Range("A0") ... la ligne 0 n'existe pas ... c'est pourquoi excel te renvoie
ce message, l'objet que tu référencies n'existe pas !
Tu peux corriger si tu le désires : Range("A" & i +1)
Salutations!
"txet" <txet@discussions.microsoft.com> a écrit dans le message de news: A1E38FAF-F734-4C3F-A690-1C6576228504@microsoft.com...
Bonjour,
Je viens de commencer a utiliser le VBA, je pensais que j'avais compris,
mais ça marche pas et je comprends pas quelle est mon erreur. Mon but, c'est
de faire une fonction qui prends les dates selectiones dans ma feuille excel,
regarde a les dates a cote (droite), fais un certain traitement et apres mets
le resultat dans le sheet2.
mom problemme c'est que quand je veux ecrire dans sheet2 je fais:
Worksheets("sheet2").Range("A" & i).Value = ocup
Et je obtiens un erreur type:
L'indice n'appartient pas a la selection
Je sais pas si l'erreur est dans cette ligne ou viens de plus loin, et tout
cas pour ecrire le recultat dans le meme feuille en utilisant
Cells(i,j)=ocup
j'ai pas des problemes.
Est-ce que quelqu'n a une idee de qu'est qui se passe?
Merci en advance, et desolee pour mon français.
J'ajoute tout mon code au cas ou
Sub ocupation()
Dim Cellule As Range
Dim h1, h2, taille_t As Integer
Dim taula() As Integer
Dim dd, d2, d1 As Date
Dim i, ocup
taille_t = 50
ReDim taula(taille_t + 1)
For i = 0 To taille_t
taula(i) = 0
i = i + 1
Next
If taille_t < h2 Then
ReDim Preserve taula(h2 + 1)
For i = taille_t + 1 To h2
taula(i) = 0
'i = i + 1
Next
taille_t = h2
End If
taula(h1) = taula(h1) + 1
taula(h2) = taula(h2) - 1
Next
ocup = 0
For i = 0 To taille_t
ocup = ocup + taula(i)
Worksheets("sheet2").Range("A" & i).Value = ocup
Next
Sheets("Feuil2").Select Range("A" & i + 1).Select ActiveCell = ocup
ça marche, je comprends pas pourquoi seulement
Worksheets("sheet2").Range("A" & i + 1).Value = ocup
ça ne marche pas, mais bon avec une façon de le faire marcher ça me sufis.
Merci Chet
Bonjour Txet,
'------------------------- For i = 0 To taille_t ocup = ocup + taula(i) Worksheets("sheet2").Range("A" & i).Value = ocup Next '-------------------------
Dans ta boucle, au premier tour, où i = 0 , tu vas demander à excel d'écrire la valeur de ocup dans la cellule Range("A"& 0), est-ce que tu connais une cellule dans excel qui a une adresse Range("A0") ... la ligne 0 n'existe pas ... c'est pourquoi excel te renvoie ce message, l'objet que tu référencies n'existe pas !
Tu peux corriger si tu le désires : Range("A" & i +1)
Salutations!
"txet" a écrit dans le message de news: Bonjour, Je viens de commencer a utiliser le VBA, je pensais que j'avais compris, mais ça marche pas et je comprends pas quelle est mon erreur. Mon but, c'est de faire une fonction qui prends les dates selectiones dans ma feuille excel, regarde a les dates a cote (droite), fais un certain traitement et apres mets le resultat dans le sheet2. mom problemme c'est que quand je veux ecrire dans sheet2 je fais:
Worksheets("sheet2").Range("A" & i).Value = ocup
Et je obtiens un erreur type: L'indice n'appartient pas a la selection Je sais pas si l'erreur est dans cette ligne ou viens de plus loin, et tout cas pour ecrire le recultat dans le meme feuille en utilisant Cells(i,j)=ocup j'ai pas des problemes.
Est-ce que quelqu'n a une idee de qu'est qui se passe? Merci en advance, et desolee pour mon français.
J'ajoute tout mon code au cas ou
Sub ocupation() Dim Cellule As Range Dim h1, h2, taille_t As Integer Dim taula() As Integer Dim dd, d2, d1 As Date Dim i, ocup
taille_t = 50 ReDim taula(taille_t + 1) For i = 0 To taille_t taula(i) = 0 i = i + 1 Next
If taille_t < h2 Then ReDim Preserve taula(h2 + 1) For i = taille_t + 1 To h2 taula(i) = 0 'i = i + 1 Next taille_t = h2 End If taula(h1) = taula(h1) + 1 taula(h2) = taula(h2) - 1 Next
ocup = 0
For i = 0 To taille_t ocup = ocup + taula(i) Worksheets("sheet2").Range("A" & i).Value = ocup Next
End Sub
michdenis
Et bien,
Que ceci ne fonctionne pas, est très préoccupant... si la feuille "sheet2" existe vraiment !
| Worksheets("sheet2").Range("A" & I + 1).Value = ocup
Salutations!
"txet" a écrit dans le message de news: Merci beaucoup a touts, en faisant
Sheets("Feuil2").Select Range("A" & i + 1).Select ActiveCell = ocup
ça marche, je comprends pas pourquoi seulement
Worksheets("sheet2").Range("A" & i + 1).Value = ocup
ça ne marche pas, mais bon avec une façon de le faire marcher ça me sufis.
Merci Chet
Bonjour Txet,
'------------------------- For i = 0 To taille_t ocup = ocup + taula(i) Worksheets("sheet2").Range("A" & i).Value = ocup Next '-------------------------
Dans ta boucle, au premier tour, où i = 0 , tu vas demander à excel d'écrire la valeur de ocup dans la cellule Range("A"& 0), est-ce que tu connais une cellule dans excel qui a une adresse Range("A0") ... la ligne 0 n'existe pas ... c'est pourquoi excel te renvoie ce message, l'objet que tu référencies n'existe pas !
Tu peux corriger si tu le désires : Range("A" & i +1)
Salutations!
"txet" a écrit dans le message de news: Bonjour, Je viens de commencer a utiliser le VBA, je pensais que j'avais compris, mais ça marche pas et je comprends pas quelle est mon erreur. Mon but, c'est de faire une fonction qui prends les dates selectiones dans ma feuille excel, regarde a les dates a cote (droite), fais un certain traitement et apres mets le resultat dans le sheet2. mom problemme c'est que quand je veux ecrire dans sheet2 je fais:
Worksheets("sheet2").Range("A" & i).Value = ocup
Et je obtiens un erreur type: L'indice n'appartient pas a la selection Je sais pas si l'erreur est dans cette ligne ou viens de plus loin, et tout cas pour ecrire le recultat dans le meme feuille en utilisant Cells(i,j)=ocup j'ai pas des problemes.
Est-ce que quelqu'n a une idee de qu'est qui se passe? Merci en advance, et desolee pour mon français.
J'ajoute tout mon code au cas ou
Sub ocupation() Dim Cellule As Range Dim h1, h2, taille_t As Integer Dim taula() As Integer Dim dd, d2, d1 As Date Dim i, ocup
taille_t = 50 ReDim taula(taille_t + 1) For i = 0 To taille_t taula(i) = 0 i = i + 1 Next
If taille_t < h2 Then ReDim Preserve taula(h2 + 1) For i = taille_t + 1 To h2 taula(i) = 0 'i = i + 1 Next taille_t = h2 End If taula(h1) = taula(h1) + 1 taula(h2) = taula(h2) - 1 Next
ocup = 0
For i = 0 To taille_t ocup = ocup + taula(i) Worksheets("sheet2").Range("A" & i).Value = ocup Next
End Sub
Et bien,
Que ceci ne fonctionne pas, est très préoccupant...
si la feuille "sheet2" existe vraiment !
| Worksheets("sheet2").Range("A" & I + 1).Value = ocup
Salutations!
"txet" <txet@discussions.microsoft.com> a écrit dans le message de news: FD1CC1F2-4D21-41F1-A39B-072482A93DBE@microsoft.com...
Merci beaucoup a touts, en faisant
Sheets("Feuil2").Select
Range("A" & i + 1).Select
ActiveCell = ocup
ça marche, je comprends pas pourquoi seulement
Worksheets("sheet2").Range("A" & i + 1).Value = ocup
ça ne marche pas, mais bon avec une façon de le faire marcher ça me sufis.
Merci
Chet
Bonjour Txet,
'-------------------------
For i = 0 To taille_t
ocup = ocup + taula(i)
Worksheets("sheet2").Range("A" & i).Value = ocup
Next
'-------------------------
Dans ta boucle, au premier tour, où i = 0 , tu vas demander à excel d'écrire la valeur de ocup dans la cellule Range("A"& 0),
est-ce
que tu connais une cellule dans excel qui a une adresse Range("A0") ... la ligne 0 n'existe pas ... c'est pourquoi excel te
renvoie
ce message, l'objet que tu référencies n'existe pas !
Tu peux corriger si tu le désires : Range("A" & i +1)
Salutations!
"txet" <txet@discussions.microsoft.com> a écrit dans le message de news: A1E38FAF-F734-4C3F-A690-1C6576228504@microsoft.com...
Bonjour,
Je viens de commencer a utiliser le VBA, je pensais que j'avais compris,
mais ça marche pas et je comprends pas quelle est mon erreur. Mon but, c'est
de faire une fonction qui prends les dates selectiones dans ma feuille excel,
regarde a les dates a cote (droite), fais un certain traitement et apres mets
le resultat dans le sheet2.
mom problemme c'est que quand je veux ecrire dans sheet2 je fais:
Worksheets("sheet2").Range("A" & i).Value = ocup
Et je obtiens un erreur type:
L'indice n'appartient pas a la selection
Je sais pas si l'erreur est dans cette ligne ou viens de plus loin, et tout
cas pour ecrire le recultat dans le meme feuille en utilisant
Cells(i,j)=ocup
j'ai pas des problemes.
Est-ce que quelqu'n a une idee de qu'est qui se passe?
Merci en advance, et desolee pour mon français.
J'ajoute tout mon code au cas ou
Sub ocupation()
Dim Cellule As Range
Dim h1, h2, taille_t As Integer
Dim taula() As Integer
Dim dd, d2, d1 As Date
Dim i, ocup
taille_t = 50
ReDim taula(taille_t + 1)
For i = 0 To taille_t
taula(i) = 0
i = i + 1
Next
If taille_t < h2 Then
ReDim Preserve taula(h2 + 1)
For i = taille_t + 1 To h2
taula(i) = 0
'i = i + 1
Next
taille_t = h2
End If
taula(h1) = taula(h1) + 1
taula(h2) = taula(h2) - 1
Next
ocup = 0
For i = 0 To taille_t
ocup = ocup + taula(i)
Worksheets("sheet2").Range("A" & i).Value = ocup
Next
Que ceci ne fonctionne pas, est très préoccupant... si la feuille "sheet2" existe vraiment !
| Worksheets("sheet2").Range("A" & I + 1).Value = ocup
Salutations!
"txet" a écrit dans le message de news: Merci beaucoup a touts, en faisant
Sheets("Feuil2").Select Range("A" & i + 1).Select ActiveCell = ocup
ça marche, je comprends pas pourquoi seulement
Worksheets("sheet2").Range("A" & i + 1).Value = ocup
ça ne marche pas, mais bon avec une façon de le faire marcher ça me sufis.
Merci Chet
Bonjour Txet,
'------------------------- For i = 0 To taille_t ocup = ocup + taula(i) Worksheets("sheet2").Range("A" & i).Value = ocup Next '-------------------------
Dans ta boucle, au premier tour, où i = 0 , tu vas demander à excel d'écrire la valeur de ocup dans la cellule Range("A"& 0), est-ce que tu connais une cellule dans excel qui a une adresse Range("A0") ... la ligne 0 n'existe pas ... c'est pourquoi excel te renvoie ce message, l'objet que tu référencies n'existe pas !
Tu peux corriger si tu le désires : Range("A" & i +1)
Salutations!
"txet" a écrit dans le message de news: Bonjour, Je viens de commencer a utiliser le VBA, je pensais que j'avais compris, mais ça marche pas et je comprends pas quelle est mon erreur. Mon but, c'est de faire une fonction qui prends les dates selectiones dans ma feuille excel, regarde a les dates a cote (droite), fais un certain traitement et apres mets le resultat dans le sheet2. mom problemme c'est que quand je veux ecrire dans sheet2 je fais:
Worksheets("sheet2").Range("A" & i).Value = ocup
Et je obtiens un erreur type: L'indice n'appartient pas a la selection Je sais pas si l'erreur est dans cette ligne ou viens de plus loin, et tout cas pour ecrire le recultat dans le meme feuille en utilisant Cells(i,j)=ocup j'ai pas des problemes.
Est-ce que quelqu'n a une idee de qu'est qui se passe? Merci en advance, et desolee pour mon français.
J'ajoute tout mon code au cas ou
Sub ocupation() Dim Cellule As Range Dim h1, h2, taille_t As Integer Dim taula() As Integer Dim dd, d2, d1 As Date Dim i, ocup
taille_t = 50 ReDim taula(taille_t + 1) For i = 0 To taille_t taula(i) = 0 i = i + 1 Next
If taille_t < h2 Then ReDim Preserve taula(h2 + 1) For i = taille_t + 1 To h2 taula(i) = 0 'i = i + 1 Next taille_t = h2 End If taula(h1) = taula(h1) + 1 taula(h2) = taula(h2) - 1 Next
ocup = 0
For i = 0 To taille_t ocup = ocup + taula(i) Worksheets("sheet2").Range("A" & i).Value = ocup Next
